diff options
| -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) |