diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-07 03:25:19 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-07 03:25:19 +0200 |
| commit | 2fa824153f71dfd2db26490deafcb2a3b5a63a1f (patch) | |
| tree | 92fc5ba52ba51d0cd44b51064d676961facf5761 /XMonad | |
| parent | c345622e63b3e0ce53e997a1c17ce2dbf3b28e56 (diff) | |
| download | metatile-2fa824153f71dfd2db26490deafcb2a3b5a63a1f.tar metatile-2fa824153f71dfd2db26490deafcb2a3b5a63a1f.zip | |
Style
darcs-hash:20080507012519-a5988-3c2577c486ae0bdb5e2ba4b4f814608ddad54d45
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Layout.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs index 9cd6bf8..65868b2 100644 --- a/XMonad/Layout.hs +++ b/XMonad/Layout.hs @@ -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) |