diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2008-03-11 18:20:46 +0100 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2008-03-11 18:20:46 +0100 |
| commit | 0b106ffba0bfff3c79ab73dbf2e00072caa2106e (patch) | |
| tree | 62bfa6d5d0d23cf4ee7db8b7faf781ae0665de84 /XMonad/Layout/MultiToggle.hs | |
| parent | 47b77a72eb1efae1629d53bf4074b321d8bbf9e1 (diff) | |
| download | XMonadContrib-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/Layout/MultiToggle.hs')
| -rw-r--r-- | XMonad/Layout/MultiToggle.hs | 8 |
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 |