aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorrobreim <robreim@bobturf.org>2008-03-08 03:49:28 +0100
committerrobreim <robreim@bobturf.org>2008-03-08 03:49:28 +0100
commitc443f386d09231cdc6164b3d360cde10fcb53f7a (patch)
treec7f26d3bdc84592d386115c051390da23c1d5068
parent8d49aea49077fd1203100d44dc6100ff4f8ce9e0 (diff)
downloadXMonadContrib-c443f386d09231cdc6164b3d360cde10fcb53f7a.tar.gz
XMonadContrib-c443f386d09231cdc6164b3d360cde10fcb53f7a.tar.xz
XMonadContrib-c443f386d09231cdc6164b3d360cde10fcb53f7a.zip
Fix to work with "floats always use current screen" patch
darcs-hash:20080308024928-d4c7e-ecac63a09d430efd75413e3148e42b38c4ec2503.gz
-rw-r--r--XMonad/Hooks/ManageHelpers.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Hooks/ManageHelpers.hs b/XMonad/Hooks/ManageHelpers.hs
index 45f7c06..0db80c7 100644
--- a/XMonad/Hooks/ManageHelpers.hs
+++ b/XMonad/Hooks/ManageHelpers.hs
@@ -140,7 +140,7 @@ doRectFloat r = ask >>= \w -> doF (W.float w r)
-- | Floats a new window with its original size, but centered.
doCenterFloat :: ManageHook
-doCenterFloat = ask >>= \w -> doF . W.float w . center . snd =<< liftX (floatLocation w)
+doCenterFloat = ask >>= \w -> doF . W.float w . center =<< liftX (floatLocation w)
where center (W.RationalRect _ _ w h)
= W.RationalRect ((1-w)/2) ((1-h)/2) w h