diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-04 08:26:53 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-04 08:26:53 +0200 |
| commit | 0406845d2068ef61e40eced2acdfd24aa0d1c8a1 (patch) | |
| tree | ac3b4116eda5fab87787cf0db1b36ea294111046 /StackSet.hs | |
| parent | 8228312e2cdacbcec493482c02be42f5b56b8a91 (diff) | |
| download | xmonad-0406845d2068ef61e40eced2acdfd24aa0d1c8a1.tar.gz xmonad-0406845d2068ef61e40eced2acdfd24aa0d1c8a1.tar.xz xmonad-0406845d2068ef61e40eced2acdfd24aa0d1c8a1.zip | |
Use the new integrate function
darcs-hash:20070604062653-a5988-8a6456ccc1dd03fa1c733e71dfa056dd76a91186.gz
Diffstat (limited to 'StackSet.hs')
| -rw-r--r-- | StackSet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs index 1f6db7e..48dff02 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -257,7 +257,7 @@ integrate (Node x l r) = reverse l ++ x : r -- integration of a one-hole list cursor, back to a list. -- index :: Eq a => StackSet i a s -> [a] -index = with [] $ \(Node t l r) -> reverse l ++ t : r +index = with [] integrate -- let is = t : r ++ reverse l in take (length is) (dropWhile (/= m) (cycle is)) |