From 0af2024503aa6626490a254ef177797ace5d55a6 Mon Sep 17 00:00:00 2001 From: Lukas Mai Date: Sat, 22 Mar 2008 08:41:13 +0100 Subject: fix various compilation errors darcs-hash:20080322074113-462cf-c25e0dd6e40b3c636a218a75e858c0c3673dcc9c.gz --- XMonad/Hooks/ManageHelpers.hs | 2 +- XMonad/Layout/ResizableTile.hs | 2 +- 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 -- cgit v1.2.3