comment for (dubious?) integrate'

2025-07-26 01:31:53 -07:00 · 2007-06-26 05:24:31 +00:00
parent 6f9a060118
commit d0566a28be
1 changed files with 2 additions and 0 deletions
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -288,6 +288,8 @@ peek = with Nothing (return . focus)
 integrate :: Stack a -> [a]
 integrate (Stack x l r) = reverse l ++ x : r

+-- |
+-- /O(n)/ Flatten a possibly empty stack into a list.
 integrate' :: StackOrNot a -> [a]
 integrate' = maybe [] integrate