[XMonad] Eliminate case statement

2016-11-25 17:28:01 -08:00
parent 31d039b0b2
commit 1065ee6937
1 changed files with 2 additions and 4 deletions
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -359,10 +359,8 @@ maybeUnminimizeClassAfter = (>> maximizeSameClassesInWorkspace)
 restoreAllMinimized = restoreFocus $
  withLastMinimized $ \w -> maximizeWindow w >> restoreAllMinimized

-restoreOrMinimizeOtherClasses = withLastMinimized' $ \mw ->
-  case mw of
-    Just _ -> restoreAllMinimized
-    Nothing -> minimizeOtherClassesInWorkspace
+restoreOrMinimizeOtherClasses = withLastMinimized' $
+  maybe restoreAllMinimized (`seq` minimizeOtherClassesInWorkspace)

 -- Window switching