diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-08-07 16:43:46 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-08-07 16:43:46 +0200 |
| commit | 3ce2c398857f570f8ae3732f3d3486550d999ab9 (patch) | |
| tree | 441bf2b24cb1d270db43352d2e7390089a9a87f7 | |
| parent | 4fdeac11fab667ee247b778429c843986c40a582 (diff) | |
| download | xmonad-3ce2c398857f570f8ae3732f3d3486550d999ab9.tar.gz xmonad-3ce2c398857f570f8ae3732f3d3486550d999ab9.tar.xz xmonad-3ce2c398857f570f8ae3732f3d3486550d999ab9.zip | |
Remove 'Eq' constraint from StackSet.index
darcs-hash:20070807144346-a5988-d01d24a1edb7af29e729ef4f5529b4cf6e9fc721.gz
| -rw-r--r-- | StackSet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs index d902b39..40d1c0b 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -320,7 +320,7 @@ filter p (Stack f ls rs) = case L.filter p (f:rs) of -- the head of the list. The implementation is given by the natural -- integration of a one-hole list cursor, back to a list. -- -index :: Eq a => StackSet i a s sd -> [a] +index :: StackSet i a s sd -> [a] index = with [] integrate -- let is = t : r ++ reverse l in take (length is) (dropWhile (/= m) (cycle is)) |