Layouts.Choose: send Hide to non-selected layout

darcs-hash:20071101151147-a5988-14eecf4fa49aa479c20fde452c9692e3d5ff3fb1

1 files changed, 2 insertions, 1 deletions

diff --git a/Layouts.hs b/Layouts.hs
index 7952dc1..2d9facf 100644
--- a/Layouts.hs
+++ b/Layouts.hs
@@ -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