diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-07 03:13:09 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-07 03:13:09 +0200 |
| commit | 13552f83ba26aadecc632fd4c1563bbc27fe739f (patch) | |
| tree | 35d0bcd53f86b6cbfb6c8190d8072cafc03bf715 /XMonad | |
| parent | 9fca4fdf77ad5b7c84f735d01c52a34dda9f6500 (diff) | |
| download | xmonad-13552f83ba26aadecc632fd4c1563bbc27fe739f.tar.gz xmonad-13552f83ba26aadecc632fd4c1563bbc27fe739f.tar.xz xmonad-13552f83ba26aadecc632fd4c1563bbc27fe739f.zip | |
Simplify
darcs-hash:20080507011309-a5988-bc76a64cabc39d7c3ef2dca7e1246e6f9dbc4e0b.gz
Diffstat (limited to 'XMonad')
| -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 |