From 2b9b770e12db3f0b947e6f383445131b55d7909c Mon Sep 17 00:00:00 2001
From: Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de>
Date: Sat, 16 May 2009 23:35:57 +0000
Subject: [PATCH] Replaced more stuff in X.L.Maximize with pure versions
---
XMonad/Layout/Maximize.hs | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/XMonad/Layout/Maximize.hs b/XMonad/Layout/Maximize.hs
index 3495ef1c..82a886f1 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