diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-22 20:31:19 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-22 20:31:19 +0100 |
| commit | ddf63c8370ed43c4380d78b13be77de4fa27ba6e (patch) | |
| tree | 93963998ef1f012c0cb203081bceda1a05e88121 | |
| parent | 8259c79bce712b0881654b7a204f82c84d2fe988 (diff) | |
| download | metatile-ddf63c8370ed43c4380d78b13be77de4fa27ba6e.tar metatile-ddf63c8370ed43c4380d78b13be77de4fa27ba6e.zip | |
Reimplement Choose with runLayout
darcs-hash:20080222193119-32816-f5c3abd826e77ad53a29904b5bae3ae3ab7e9c33
| -rw-r--r-- | XMonad/Layout.hs | 7 |
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 |