Style changes in L.Minimize

Ignore-this: 5f64c0717e24ed6cbe2c9fad50bf78a3

darcs-hash:20100104144448-1499c-05d4781d06189dbeb59751b2f9b12887839ae653.gz

1 files changed, 3 insertions, 7 deletions

diff --git a/XMonad/Layout/Minimize.hs b/XMonad/Layout/Minimize.hs
index 7057f67..50e3ba2 100644
--- a/XMonad/Layout/Minimize.hs
+++ b/XMonad/Layout/Minimize.hs
@@ -64,7 +64,7 @@ import qualified Data.Map as M
 
 data Minimize a = Minimize [Window] (M.Map Window W.RationalRect) deriving ( Read, Show )
 minimize :: LayoutClass l Window => l Window -> ModifiedLayout Minimize l Window
-minimize = ModifiedLayout $ Minimize [] (M.empty)
+minimize = ModifiedLayout $ Minimize [] M.empty
 
 data MinimizeMsg = MinimizeWin Window
                     | RestoreMinimizedWin Window
@@ -73,7 +73,7 @@ data MinimizeMsg = MinimizeWin Window
 instance Message MinimizeMsg
 
 instance LayoutModifier Minimize Window where
-    modifierDescription (Minimize _ _) = "Minimize"
+    modifierDescription _ = "Minimize"
 
     modifyLayout (Minimize minimized _) wksp rect = do
         let stack = W.stack wksp
@@ -81,9 +81,7 @@ instance LayoutModifier Minimize Window where
         runLayout (wksp {W.stack = filtStack}) rect
 
     handleMess (Minimize minimized unfloated) m
-        | Just (MinimizeWin w) <- fromMessage m =
-          if not (w `elem` minimized)
-            then do
+        | Just (MinimizeWin w) <- fromMessage m, not (w `elem` minimized) = do
                 BW.focusDown
                 ws <- gets windowset
                 case M.lookup w (W.floating ws) of
@@ -91,8 +89,6 @@ instance LayoutModifier Minimize Window where
                   Just r -> do
                     (windows . W.sink) w
                     return $ Just $ Minimize (w:minimized) (M.insert w r unfloated)
-
-            else return Nothing
         | Just (RestoreMinimizedWin w) <- fromMessage m =
             case M.lookup w unfloated of
               Nothing -> return $ Just $ Minimize (minimized \\ [w]) unfloated