diff options
| -rw-r--r-- | StackSet.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/StackSet.hs b/StackSet.hs index f4f482d..3d369f9 100644 --- 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 |