From 6f772cb2fa86159937a83a0585da4cf00ab43aa3 Mon Sep 17 00:00:00 2001
From: Lukas Mai <l.mai@web.de>
Date: Fri, 18 Jan 2008 00:40:59 +0100
Subject: style assimilation

darcs-hash:20080117234059-462cf-ccbba0b797ee81ac59aa27882ee4bf04af213f15.gz
---
 XMonad/Layout/MultiToggle.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Layout/MultiToggle.hs')

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
 
-- 
cgit v1.2.3