aboutsummaryrefslogtreecommitdiffstats
path: root/Magnifier.hs
diff options
context:
space:
mode:
authorjoachim.fasting <joachim.fasting@gmail.com>2007-06-20 00:03:23 +0200
committerjoachim.fasting <joachim.fasting@gmail.com>2007-06-20 00:03:23 +0200
commit346cc3269ee31062fa7eb560f90c4059c6279962 (patch)
treed3fce63e93e074dbec7eaa5b261b0d65f8d0219e /Magnifier.hs
parentb5826d369dabc893c9fa7bf1a97915c4c7f4967e (diff)
downloadXMonadContrib-346cc3269ee31062fa7eb560f90c4059c6279962.tar.gz
XMonadContrib-346cc3269ee31062fa7eb560f90c4059c6279962.tar.xz
XMonadContrib-346cc3269ee31062fa7eb560f90c4059c6279962.zip
Fix type signatures.
Think this fixes the rest of the errors caused by the Layout change. darcs-hash:20070619220323-ea16c-3274cd24d01bc932089ab88191ccda316ea93b01.gz
Diffstat (limited to 'Magnifier.hs')
-rw-r--r--Magnifier.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Magnifier.hs b/Magnifier.hs
index 8334844..7f27dfb 100644
--- a/Magnifier.hs
+++ b/Magnifier.hs
@@ -30,7 +30,7 @@ import StackSet
-- > import XMonadContrib.Magnifier
-- > defaultLayouts = [ magnifier tiled , magnifier $ mirror tiled ]
-magnifier :: Layout -> Layout
+magnifier :: Layout Window -> Layout Window
magnifier l = l { doLayout = \r s -> applyMagnifier r s `fmap` doLayout l r s
, modifyLayout = \x -> fmap magnifier `fmap` modifyLayout l x }