diff options
author | joachim.fasting <joachim.fasting@gmail.com> | 2007-06-19 23:48:39 +0200 |
---|---|---|
committer | joachim.fasting <joachim.fasting@gmail.com> | 2007-06-19 23:48:39 +0200 |
commit | b5826d369dabc893c9fa7bf1a97915c4c7f4967e (patch) | |
tree | 040df3fd070f8e822647b0650a7b2391912346f9 /MagicFocus.hs | |
parent | 22f3bd4a94c4414052f9ed9ca48b916073649497 (diff) | |
download | XMonadContrib-b5826d369dabc893c9fa7bf1a97915c4c7f4967e.tar.gz XMonadContrib-b5826d369dabc893c9fa7bf1a97915c4c7f4967e.tar.xz XMonadContrib-b5826d369dabc893c9fa7bf1a97915c4c7f4967e.zip |
MagicFocus.magicFocus: fix type signature.
Layout change caused because of missing type argument.
darcs-hash:20070619214839-ea16c-834c06a84ce91a6306ee23b9be344641d42a5ee9.gz
Diffstat (limited to 'MagicFocus.hs')
-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 } |