From 87a4ebebc9883f9975eea21c21323ef357c25d2a Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 1 Nov 2007 16:11:47 +0100
Subject: Layouts.Choose: send Hide to non-selected layout

darcs-hash:20071101151147-a5988-14eecf4fa49aa479c20fde452c9692e3d5ff3fb1.gz
---
 Layouts.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Layouts.hs')

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
-- 
cgit v1.2.3