diff options
| author | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-05-17 01:35:57 +0200 |
|---|---|---|
| committer | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-05-17 01:35:57 +0200 |
| commit | 010cd5bed00564e875a10685048d4db16ced7223 (patch) | |
| tree | 431c911ce0d7464ff0b1011444c1245cddd9929f | |
| parent | 354eac8b9cc9f31c4955f9802648a894747b010a (diff) | |
| download | XMonadContrib-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.hs | 10 |
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 |