aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLukas Mai <l.mai@web.de>2008-03-22 08:41:13 +0100
committerLukas Mai <l.mai@web.de>2008-03-22 08:41:13 +0100
commit0af2024503aa6626490a254ef177797ace5d55a6 (patch)
treef7f6576ab954ca19b68ae708a685a50cb8bf65ba
parentea5a3128b08e889512b09ef735ddb573317b7ef3 (diff)
downloadXMonadContrib-0af2024503aa6626490a254ef177797ace5d55a6.tar.gz
XMonadContrib-0af2024503aa6626490a254ef177797ace5d55a6.tar.xz
XMonadContrib-0af2024503aa6626490a254ef177797ace5d55a6.zip
fix various compilation errors
darcs-hash:20080322074113-462cf-c25e0dd6e40b3c636a218a75e858c0c3673dcc9c.gz
-rw-r--r--XMonad/Hooks/ManageHelpers.hs2
-rw-r--r--XMonad/Layout/ResizableTile.hs2
2 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Hooks/ManageHelpers.hs b/XMonad/Hooks/ManageHelpers.hs
index 0db80c7..45f7c06 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 =<< liftX (floatLocation w)
+doCenterFloat = ask >>= \w -> doF . W.float w . center . snd =<< liftX (floatLocation w)
where center (W.RationalRect _ _ w h)
= W.RationalRect ((1-w)/2) ((1-h)/2) w h
diff --git a/XMonad/Layout/ResizableTile.hs b/XMonad/Layout/ResizableTile.hs
index a333ab2..11411fb 100644
--- a/XMonad/Layout/ResizableTile.hs
+++ b/XMonad/Layout/ResizableTile.hs
@@ -21,7 +21,7 @@ module XMonad.Layout.ResizableTile (
ResizableTall(..), MirrorResize(..)
) where
-import XMonad hiding (splitVertically, splitHorizontallyBy)
+import XMonad hiding (tile, splitVertically, splitHorizontallyBy)
import qualified XMonad.StackSet as W
import Control.Monad
import qualified Data.Map as M