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 | 6a9570d2094f639c21f2b429ce229464e8016a79 (patch) | |
| tree | ee921a1b15859f5bb94b269610047fbc52a70827 /StackSet.hs | |
| parent | f4f7742f67bed980ca5f4cf0148f7644f22d49a3 (diff) | |
| download | xmonad-6a9570d2094f639c21f2b429ce229464e8016a79.tar.gz xmonad-6a9570d2094f639c21f2b429ce229464e8016a79.tar.xz xmonad-6a9570d2094f639c21f2b429ce229464e8016a79.zip | |
comment for (dubious?) integrate'
darcs-hash:20070626052431-9c5c1-b7d37be5fd0e660fbc8725fd94548d3a00cbcc3e.gz
Diffstat (limited to 'StackSet.hs')
| -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 |