summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Layouts.hs3
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