aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2008-02-22 20:31:19 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2008-02-22 20:31:19 +0100
commite801c4695a9580070c6b1a937273b867efa4bd2f (patch)
tree93963998ef1f012c0cb203081bceda1a05e88121
parentb84cd8cf7dbe9ccb8837752b73acf132ee59d1e4 (diff)
downloadxmonad-e801c4695a9580070c6b1a937273b867efa4bd2f.tar.gz
xmonad-e801c4695a9580070c6b1a937273b867efa4bd2f.tar.xz
xmonad-e801c4695a9580070c6b1a937273b867efa4bd2f.zip
Reimplement Choose with runLayout
darcs-hash:20080222193119-32816-f5c3abd826e77ad53a29904b5bae3ae3ab7e9c33.gz
-rw-r--r--XMonad/Layout.hs7
1 files changed, 2 insertions, 5 deletions
diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs
index 94051b2..91b8b32 100644
--- a/XMonad/Layout.hs
+++ b/XMonad/Layout.hs
@@ -51,11 +51,8 @@ instance Message NextNoWrap
-- This has lots of pseudo duplicated code, we must find a better way
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
+ runLayout (W.Workspace i (SLeft r l) ms) = fmap (second . fmap $ SLeft r) . runLayout (W.Workspace i l ms)
+ runLayout (W.Workspace i (SRight l r) ms) = fmap (second . fmap $ SRight l) . runLayout (W.Workspace i r ms)
description (SLeft _ l) = description l
description (SRight _ r) = description r