diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 16:11:47 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 16:11:47 +0100 |
commit | 87a4ebebc9883f9975eea21c21323ef357c25d2a (patch) | |
tree | bd01b245787afa97716a4ddcc2274ead3ac561aa | |
parent | e2b2de4c61be5bc710785c754844f84ce4c80b67 (diff) | |
download | xmonad-87a4ebebc9883f9975eea21c21323ef357c25d2a.tar.gz xmonad-87a4ebebc9883f9975eea21c21323ef357c25d2a.tar.xz xmonad-87a4ebebc9883f9975eea21c21323ef357c25d2a.zip |
Layouts.Choose: send Hide to non-selected layout
darcs-hash:20071101151147-a5988-14eecf4fa49aa479c20fde452c9692e3d5ff3fb1.gz
Diffstat (limited to '')
-rw-r--r-- | Layouts.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -59,7 +59,8 @@ instance (LayoutClass l a, LayoutClass r a) => LayoutClass (Choose l r) a where handleMessage lr m | Just FirstLayout <- fromMessage m = case lr of SLeft {} -> return Nothing - SRight l r -> fmap (Just . flip SLeft l . fromMaybe r) $ handleMessage r m + SRight l r -> fmap (Just . flip SLeft l . fromMaybe r) + $ handleMessage r (SomeMessage Hide) handleMessage lr m | Just NextLayout <- fromMessage m = do mlr <- handleMessage lr $ SomeMessage NextNoWrap |