diff options
| author | Lukas Mai <l.mai@web.de> | 2008-01-18 00:40:59 +0100 |
|---|---|---|
| committer | Lukas Mai <l.mai@web.de> | 2008-01-18 00:40:59 +0100 |
| commit | 6f772cb2fa86159937a83a0585da4cf00ab43aa3 (patch) | |
| tree | 0561cf47163844a931eff9591aa7c323d99b2ae2 /XMonad/Layout/MultiToggle.hs | |
| parent | f30ad07ff8ded8e9b1362dd78757c10202552cef (diff) | |
| download | XMonadContrib-6f772cb2fa86159937a83a0585da4cf00ab43aa3.tar.gz XMonadContrib-6f772cb2fa86159937a83a0585da4cf00ab43aa3.tar.xz XMonadContrib-6f772cb2fa86159937a83a0585da4cf00ab43aa3.zip | |
style assimilation
darcs-hash:20080117234059-462cf-ccbba0b797ee81ac59aa27882ee4bf04af213f15.gz
Diffstat (limited to 'XMonad/Layout/MultiToggle.hs')
| -rw-r--r-- | XMonad/Layout/MultiToggle.hs | 2 |
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 |