twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-09-03 12:13:48 -07:00
Code Issues Packages Projects Releases Wiki Activity

Simplify

Browse Source
This commit is contained in:
Spencer Janssen
2008-05-07 01:13:09 +00:00
parent ab30d76578
commit 870b3ad282
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Layout.hs
View File

@@ -188,10 +188,8 @@ instance (LayoutClass l a, LayoutClass r a) => LayoutClass (Choose l r) a where
ml' <- handle l FirstLayout ml' <- handle l FirstLayout
choose c L ml' Nothing choose c L ml' Nothing
handleMessage c@(Choose d l r) m | Just ReleaseResources <- fromMessage m = do handleMessage c@(Choose d l r) m | Just ReleaseResources <- fromMessage m =
ml' <- handle l ReleaseResources join $ liftM2 (choose c d) (handle l ReleaseResources) (handle r ReleaseResources)
mr' <- handle r ReleaseResources
choose c d ml' mr'
handleMessage c@(Choose d l r) m = do handleMessage c@(Choose d l r) m = do
ml' <- case d of ml' <- case d of