summaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2008-03-22 20:26:35 +0100
committerDon Stewart <dons@galois.com>2008-03-22 20:26:35 +0100
commitce25a7fd566f3eb8bab40496c67fd9fb7ea25ff9 (patch)
tree0995d21d7eb0eb0b8615bd649430a3ee91c4a883 /XMonad
parent465ba6e5ddedaaf438d1252bbf50f698ce1cff36 (diff)
downloadmetatile-ce25a7fd566f3eb8bab40496c67fd9fb7ea25ff9.tar
metatile-ce25a7fd566f3eb8bab40496c67fd9fb7ea25ff9.zip
formatting
darcs-hash:20080322192635-cba2c-12b31e91996dcc9f3fe9d5b790a0f239572f93dc
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs
index 2347cb9..056dd5c 100644
--- a/XMonad/Layout.hs
+++ b/XMonad/Layout.hs
@@ -157,8 +157,10 @@ 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
- 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)
+ 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