diff options
| -rw-r--r-- | MagicFocus.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MagicFocus.hs b/MagicFocus.hs index 32f1b75..a94db82 100644 --- a/MagicFocus.hs +++ b/MagicFocus.hs @@ -23,7 +23,7 @@ import StackSet -- > import XMonadContrib.MagicFocus -- > defaultLayouts = [ magicFocus tiled , magicFocus $ mirror tiled ] -magicFocus :: Layout -> Layout +magicFocus :: Layout a -> Layout a magicFocus l = l { doLayout = \s -> (doLayout l) s . swap , modifyLayout = \x -> fmap magicFocus `fmap` modifyLayout l x } |