From 0b106ffba0bfff3c79ab73dbf2e00072caa2106e Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Tue, 11 Mar 2008 18:20:46 +0100 Subject: MultiToggle: fix to work with runLayout changes to core darcs-hash:20080311172046-bd4d7-fb017517eea1d89a4257954e4515af1a63f53a63.gz --- XMonad/Layout/MultiToggle.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'XMonad/Layout/MultiToggle.hs') diff --git a/XMonad/Layout/MultiToggle.hs b/XMonad/Layout/MultiToggle.hs index d599d13..5c47d19 100644 --- a/XMonad/Layout/MultiToggle.hs +++ b/XMonad/Layout/MultiToggle.hs @@ -29,6 +29,8 @@ module XMonad.Layout.MultiToggle ( import XMonad +import XMonad.StackSet (Workspace(..)) + import Control.Arrow import Data.Typeable import Data.Maybe @@ -196,11 +198,7 @@ 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 mt = currLayout mt `unEL` \l -> description l - pureLayout mt r s = currLayout mt `unEL` \l -> pureLayout l r s - - doLayout mt r s = currLayout mt `unEL` \l -> acceptChange mt (fmap . fmap) (doLayout l r s) - - emptyLayout mt r = currLayout mt `unEL` \l -> acceptChange mt (fmap . fmap) (emptyLayout l r) + runLayout (Workspace i mt s) r = currLayout mt `unEL` \l -> acceptChange mt (fmap . fmap) (runLayout (Workspace i l s) r) handleMessage mt m | Just (Toggle t) <- fromMessage m -- cgit v1.2.3