summaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
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