diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-07 03:25:19 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-07 03:25:19 +0200 |
| commit | ae833bb8edd3da5a9d057ef104ef5e1bf1c553c1 (patch) | |
| tree | 92fc5ba52ba51d0cd44b51064d676961facf5761 /XMonad | |
| parent | 13552f83ba26aadecc632fd4c1563bbc27fe739f (diff) | |
| download | xmonad-ae833bb8edd3da5a9d057ef104ef5e1bf1c553c1.tar.gz xmonad-ae833bb8edd3da5a9d057ef104ef5e1bf1c553c1.tar.xz xmonad-ae833bb8edd3da5a9d057ef104ef5e1bf1c553c1.zip | |
Style
darcs-hash:20080507012519-a5988-3c2577c486ae0bdb5e2ba4b4f814608ddad54d45.gz
Diffstat (limited to '')
| -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) |