MagicFocus.magicFocus: fix type signature.

Layout change caused because of missing type argument.
This commit is contained in:
joachim.fasting
2007-06-19 21:48:39 +00:00
parent 9eb3cc0dde
commit 02f70419eb

View File

@@ -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 }