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

Style

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

3
XMonad/Layout.hs
View File

@@ -185,8 +185,7 @@ instance (LayoutClass l a, LayoutClass r a) => LayoutClass (Choose l r) a where
R -> choose c R Nothing =<< handle r NextNoWrap
handleMessage c@(Choose _ l _) m | Just FirstLayout <- fromMessage m = do
ml' <- handle l FirstLayout
choose c L ml' Nothing
flip (choose c L) Nothing =<< handle l FirstLayout
handleMessage c@(Choose d l r) m | Just ReleaseResources <- fromMessage m =
join $ liftM2 (choose c d) (handle l ReleaseResources) (handle r ReleaseResources)