aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJan Vornberger <jan.vornberger@informatik.uni-oldenburg.de>2009-05-17 01:35:57 +0200
committerJan Vornberger <jan.vornberger@informatik.uni-oldenburg.de>2009-05-17 01:35:57 +0200
commit010cd5bed00564e875a10685048d4db16ced7223 (patch)
tree431c911ce0d7464ff0b1011444c1245cddd9929f
parent354eac8b9cc9f31c4955f9802648a894747b010a (diff)
downloadXMonadContrib-010cd5bed00564e875a10685048d4db16ced7223.tar.gz
XMonadContrib-010cd5bed00564e875a10685048d4db16ced7223.tar.xz
XMonadContrib-010cd5bed00564e875a10685048d4db16ced7223.zip
Replaced more stuff in X.L.Maximize with pure versions
Ignore-this: ffafa9ce65efb2639a147493fb49c7e1 darcs-hash:20090516233557-594c5-f976274d9a0f4faa87e269d1964af06ab8fd7f5f.gz
-rw-r--r--XMonad/Layout/Maximize.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/XMonad/Layout/Maximize.hs b/XMonad/Layout/Maximize.hs
index 3495ef1..82a886f 100644
--- a/XMonad/Layout/Maximize.hs
+++ b/XMonad/Layout/Maximize.hs
@@ -72,12 +72,12 @@ instance LayoutModifier Maximize Window where
(rect_width rect - 50) (rect_height rect - 50)
pureModifier _ _ _ wrs = (wrs, Nothing)
- handleMess (Maximize mw) m = case fromMessage m of
+ pureMess (Maximize mw) m = case fromMessage m of
Just (MaximizeRestore w) -> case mw of
Just w' -> if (w == w')
- then return $ Just $ Maximize Nothing -- restore window
- else return $ Just $ Maximize $ Just w -- maximize different window
- Nothing -> return $ Just $ Maximize $ Just w -- maximize window
- _ -> return Nothing
+ then Just $ Maximize Nothing -- restore window
+ else Just $ Maximize $ Just w -- maximize different window
+ Nothing -> Just $ Maximize $ Just w -- maximize window
+ _ -> Nothing
-- vim: sw=4:et