From 010cd5bed00564e875a10685048d4db16ced7223 Mon Sep 17 00:00:00 2001 From: Jan Vornberger Date: Sun, 17 May 2009 01:35:57 +0200 Subject: Replaced more stuff in X.L.Maximize with pure versions Ignore-this: ffafa9ce65efb2639a147493fb49c7e1 darcs-hash:20090516233557-594c5-f976274d9a0f4faa87e269d1964af06ab8fd7f5f.gz --- XMonad/Layout/Maximize.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'XMonad/Layout/Maximize.hs') 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 -- cgit v1.2.3