diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-26 07:24:31 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-26 07:24:31 +0200 |
| commit | db7f73d293a484251035ad9ea8e2fe3767f2e43f (patch) | |
| tree | ee921a1b15859f5bb94b269610047fbc52a70827 | |
| parent | 9c0d9b08bfddb30552faa5812c146875754c8058 (diff) | |
| download | metatile-db7f73d293a484251035ad9ea8e2fe3767f2e43f.tar metatile-db7f73d293a484251035ad9ea8e2fe3767f2e43f.zip | |
comment for (dubious?) integrate'
darcs-hash:20070626052431-9c5c1-b7d37be5fd0e660fbc8725fd94548d3a00cbcc3e
| -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 |