aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorBrent Yorgey <byorgey@gmail.com>2008-03-11 18:20:46 +0100
committerBrent Yorgey <byorgey@gmail.com>2008-03-11 18:20:46 +0100
commit0b106ffba0bfff3c79ab73dbf2e00072caa2106e (patch)
tree62bfa6d5d0d23cf4ee7db8b7faf781ae0665de84 /XMonad
parent47b77a72eb1efae1629d53bf4074b321d8bbf9e1 (diff)
downloadXMonadContrib-0b106ffba0bfff3c79ab73dbf2e00072caa2106e.tar.gz
XMonadContrib-0b106ffba0bfff3c79ab73dbf2e00072caa2106e.tar.xz
XMonadContrib-0b106ffba0bfff3c79ab73dbf2e00072caa2106e.zip
MultiToggle: fix to work with runLayout changes to core
darcs-hash:20080311172046-bd4d7-fb017517eea1d89a4257954e4515af1a63f53a63.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout/MultiToggle.hs8
1 files changed, 3 insertions, 5 deletions
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