diff options
author | Don Stewart <dons@galois.com> | 2008-03-22 20:26:35 +0100 |
---|---|---|
committer | Don Stewart <dons@galois.com> | 2008-03-22 20:26:35 +0100 |
commit | feabce3059077acbfddbe1d69d5410bf601cc97f (patch) | |
tree | 0995d21d7eb0eb0b8615bd649430a3ee91c4a883 /XMonad | |
parent | 1e65a46c78cfc5ec611962c0923b240a05367072 (diff) | |
download | xmonad-feabce3059077acbfddbe1d69d5410bf601cc97f.tar.gz xmonad-feabce3059077acbfddbe1d69d5410bf601cc97f.tar.xz xmonad-feabce3059077acbfddbe1d69d5410bf601cc97f.zip |
formatting
darcs-hash:20080322192635-cba2c-12b31e91996dcc9f3fe9d5b790a0f239572f93dc.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Layout.hs | 6 |
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 |