MagicFocus.magicFocus: add type signature.

This commit is contained in:
joachim.fasting
2007-06-18 20:52:22 +00:00
parent 6dccb57c87
commit 977769cadc

View File

@@ -3,6 +3,7 @@ module XMonadContrib.MagicFocus (magicFocus) where
import XMonad
import StackSet
magicFocus :: Layout -> Layout
magicFocus l = l { doLayout = \s -> (doLayout l) s . swap
, modifyLayout = \x -> fmap magicFocus `fmap` modifyLayout l x }