diff options
Diffstat (limited to 'XMonad/Layout.hs')
-rw-r--r-- | XMonad/Layout.hs | 3 |
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 |