diff options
| author | Lukas Mai <l.mai@web.de> | 2008-03-22 08:41:13 +0100 |
|---|---|---|
| committer | Lukas Mai <l.mai@web.de> | 2008-03-22 08:41:13 +0100 |
| commit | 0af2024503aa6626490a254ef177797ace5d55a6 (patch) | |
| tree | f7f6576ab954ca19b68ae708a685a50cb8bf65ba /XMonad/Hooks/ManageHelpers.hs | |
| parent | ea5a3128b08e889512b09ef735ddb573317b7ef3 (diff) | |
| download | XMonadContrib-0af2024503aa6626490a254ef177797ace5d55a6.tar.gz XMonadContrib-0af2024503aa6626490a254ef177797ace5d55a6.tar.xz XMonadContrib-0af2024503aa6626490a254ef177797ace5d55a6.zip | |
fix various compilation errors
darcs-hash:20080322074113-462cf-c25e0dd6e40b3c636a218a75e858c0c3673dcc9c.gz
Diffstat (limited to 'XMonad/Hooks/ManageHelpers.hs')
| -rw-r--r-- | XMonad/Hooks/ManageHelpers.hs | 2 |
1 files changed, 1 insertions, 1 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 |