summaryrefslogtreecommitdiffstats
path: root/XMonad/Layout.hs
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Layout.hs')
-rw-r--r--XMonad/Layout.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs
index 01c0428..981541c 100644
--- a/XMonad/Layout.hs
+++ b/XMonad/Layout.hs
@@ -54,6 +54,9 @@ instance (LayoutClass l a, LayoutClass r a) => LayoutClass (Choose l r) a where
doLayout (SLeft r l) = (fmap (second . fmap $ SLeft r) .) . doLayout l
doLayout (SRight l r) = (fmap (second . fmap $ SRight l) .) . doLayout r
+ emptyLayout (SLeft r l) = (fmap (second . fmap $ SLeft r) .) $ emptyLayout l
+ emptyLayout (SRight l r) = (fmap (second . fmap $ SRight l) .) $ emptyLayout r
+
description (SLeft _ l) = description l
description (SRight _ r) = description r