summaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2008-05-07 03:25:19 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2008-05-07 03:25:19 +0200
commit2fa824153f71dfd2db26490deafcb2a3b5a63a1f (patch)
tree92fc5ba52ba51d0cd44b51064d676961facf5761 /XMonad
parentc345622e63b3e0ce53e997a1c17ce2dbf3b28e56 (diff)
downloadmetatile-2fa824153f71dfd2db26490deafcb2a3b5a63a1f.tar
metatile-2fa824153f71dfd2db26490deafcb2a3b5a63a1f.zip
Style
darcs-hash:20080507012519-a5988-3c2577c486ae0bdb5e2ba4b4f814608ddad54d45
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout.hs3
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)