aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks
diff options
context:
space:
mode:
authorDavid Roundy <droundy@darcs.net>2007-11-10 22:42:05 +0100
committerDavid Roundy <droundy@darcs.net>2007-11-10 22:42:05 +0100
commit90ea76341c7f0309445e93c061dff91cea2df4f8 (patch)
tree815e47ef2a52c50372caa415224b656131db6fa4 /XMonad/Hooks
parentdcdeb73a24879db81f0e04c98d9e121b5756e186 (diff)
downloadXMonadContrib-90ea76341c7f0309445e93c061dff91cea2df4f8.tar.gz
XMonadContrib-90ea76341c7f0309445e93c061dff91cea2df4f8.tar.xz
XMonadContrib-90ea76341c7f0309445e93c061dff91cea2df4f8.zip
fix bug in avoidStruts.
darcs-hash:20071110214205-72aca-907faf271a9ca27ebd0cacc58ff3556e8f1a9d56.gz
Diffstat (limited to 'XMonad/Hooks')
-rw-r--r--XMonad/Hooks/ManageDocks.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs
index a512379..442d3b0 100644
--- a/XMonad/Hooks/ManageDocks.hs
+++ b/XMonad/Hooks/ManageDocks.hs
@@ -156,7 +156,7 @@ data AvoidStruts l a = AvoidStruts (l a) deriving ( Read, Show )
instance LayoutClass l a => LayoutClass (AvoidStruts l) a where
doLayout (AvoidStruts lo) (Rectangle x y w h) s =
- do (t,l,b,r) <- calcGap
+ do (t,b,l,r) <- calcGap
let rect = Rectangle (x+fromIntegral l) (y+fromIntegral t)
(w-fromIntegral l-fromIntegral r) (h-fromIntegral t-fromIntegral b)
(wrs,mlo') <- doLayout lo rect s