diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-13 05:53:23 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-13 05:53:23 +0200 |
| commit | 55ddb65c69dd48fc38d26754fb068df28c4c3611 (patch) | |
| tree | 08064d665932b96ce8599eb6a799745c9ca69f37 | |
| parent | c86e6c4c59e8c4888fbed787b2d244d4fae6cf14 (diff) | |
| download | XMonadContrib-55ddb65c69dd48fc38d26754fb068df28c4c3611.tar.gz XMonadContrib-55ddb65c69dd48fc38d26754fb068df28c4c3611.tar.xz XMonadContrib-55ddb65c69dd48fc38d26754fb068df28c4c3611.zip | |
Update MagicFocus to the new StackSet
darcs-hash:20070613035323-a5988-1edc050bc03665275f154daa034f5117f1c157ce.gz
| -rw-r--r-- | MagicFocus.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/MagicFocus.hs b/MagicFocus.hs index 444a100..ecc10b4 100644 --- a/MagicFocus.hs +++ b/MagicFocus.hs @@ -7,5 +7,4 @@ magicFocus l = l { doLayout = \s -> (doLayout l) s . swap , modifyLayout = \x -> fmap magicFocus `fmap` modifyLayout l x } swap :: Stack a -> Stack a -swap Empty = Empty -swap (Node f u d) = Node f [] (reverse u ++ d) +swap (Stack f u d) = Stack f [] (reverse u ++ d) |