diff options
| -rw-r--r-- | XMonad/Layout.hs | 6 |
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 |