[XMonad] Eliminate case statement

This commit is contained in:
2016-11-25 17:28:01 -08:00
parent 31d039b0b2
commit 1065ee6937

View File

@@ -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