summaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2008-05-07 03:13:09 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2008-05-07 03:13:09 +0200
commitc345622e63b3e0ce53e997a1c17ce2dbf3b28e56 (patch)
tree35d0bcd53f86b6cbfb6c8190d8072cafc03bf715 /XMonad
parent8c03a2cc7d71eebeec2bac8ce08407258db9796e (diff)
downloadmetatile-c345622e63b3e0ce53e997a1c17ce2dbf3b28e56.tar
metatile-c345622e63b3e0ce53e997a1c17ce2dbf3b28e56.zip
Simplify
darcs-hash:20080507011309-a5988-bc76a64cabc39d7c3ef2dca7e1246e6f9dbc4e0b
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs
index 1e9970a..9cd6bf8 100644
--- a/XMonad/Layout.hs
+++ b/XMonad/Layout.hs
@@ -188,10 +188,8 @@ instance (LayoutClass l a, LayoutClass r a) => LayoutClass (Choose l r) a where
ml' <- handle l FirstLayout
choose c L ml' Nothing
- handleMessage c@(Choose d l r) m | Just ReleaseResources <- fromMessage m = do
- ml' <- handle l ReleaseResources
- mr' <- handle r ReleaseResources
- choose c d ml' mr'
+ handleMessage c@(Choose d l r) m | Just ReleaseResources <- fromMessage m =
+ join $ liftM2 (choose c d) (handle l ReleaseResources) (handle r ReleaseResources)
handleMessage c@(Choose d l r) m = do
ml' <- case d of