aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout
diff options
context:
space:
mode:
authorLukas Mai <l.mai@web.de>2008-01-18 00:40:59 +0100
committerLukas Mai <l.mai@web.de>2008-01-18 00:40:59 +0100
commit6f772cb2fa86159937a83a0585da4cf00ab43aa3 (patch)
tree0561cf47163844a931eff9591aa7c323d99b2ae2 /XMonad/Layout
parentf30ad07ff8ded8e9b1362dd78757c10202552cef (diff)
downloadXMonadContrib-6f772cb2fa86159937a83a0585da4cf00ab43aa3.tar.gz
XMonadContrib-6f772cb2fa86159937a83a0585da4cf00ab43aa3.tar.xz
XMonadContrib-6f772cb2fa86159937a83a0585da4cf00ab43aa3.zip
style assimilation
darcs-hash:20080117234059-462cf-ccbba0b797ee81ac59aa27882ee4bf04af213f15.gz
Diffstat (limited to 'XMonad/Layout')
-rw-r--r--XMonad/Layout/MultiToggle.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/MultiToggle.hs b/XMonad/Layout/MultiToggle.hs
index 3b779d9..50191b6 100644
--- a/XMonad/Layout/MultiToggle.hs
+++ b/XMonad/Layout/MultiToggle.hs
@@ -189,7 +189,7 @@ acceptChange :: (LayoutClass l' a) => MultiToggle ts l a -> ((l' a -> MultiToggl
acceptChange mt f = fmap (f (\x -> mt{ currLayout = EL x }))
instance (Typeable a, Show ts, HList ts a, LayoutClass l a) => LayoutClass (MultiToggle ts l) a where
- description (MultiToggle { currLayout = (EL l) }) = description l
+ description mt = currLayout mt `unEL` \l -> description l
pureLayout mt r s = currLayout mt `unEL` \l -> pureLayout l r s