diff options
author | joachim.fasting <joachim.fasting@gmail.com> | 2007-06-18 22:52:22 +0200 |
---|---|---|
committer | joachim.fasting <joachim.fasting@gmail.com> | 2007-06-18 22:52:22 +0200 |
commit | 47ed815ca108a33f730360adb5a385c323468a3d (patch) | |
tree | 533629cc406558f08407e73bb9f35525918a9e02 | |
parent | 4c6838d668393460663d7fdec831dda85b948750 (diff) | |
download | XMonadContrib-47ed815ca108a33f730360adb5a385c323468a3d.tar.gz XMonadContrib-47ed815ca108a33f730360adb5a385c323468a3d.tar.xz XMonadContrib-47ed815ca108a33f730360adb5a385c323468a3d.zip |
MagicFocus.magicFocus: add type signature.
darcs-hash:20070618205222-ea16c-b441fb622f2532c5b0ba9a0c7b880f9d01e062d4.gz
Diffstat (limited to '')
-rw-r--r-- | MagicFocus.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/MagicFocus.hs b/MagicFocus.hs index ecc10b4..275f722 100644 --- a/MagicFocus.hs +++ b/MagicFocus.hs @@ -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 } |