diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-22 18:59:24 +0100 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-22 18:59:24 +0100 |
commit | 8fe9bce455127ba0825607851bc207cfe0c0e210 (patch) | |
tree | 7451b1ae15269d5e02d0d12bc46912d56dd96c6b /XMonad/Layout | |
parent | 06d5523e58956674fcd0efff782d1c75526c1511 (diff) | |
download | XMonadContrib-8fe9bce455127ba0825607851bc207cfe0c0e210.tar.gz XMonadContrib-8fe9bce455127ba0825607851bc207cfe0c0e210.tar.xz XMonadContrib-8fe9bce455127ba0825607851bc207cfe0c0e210.zip |
Combo: updated to latest runLayout changes
darcs-hash:20080222175924-32816-613895c67d72845110f884077ff289163878a927.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Layout/Combo.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Layout/Combo.hs b/XMonad/Layout/Combo.hs index 09e728a..41cc5fc 100644 --- a/XMonad/Layout/Combo.hs +++ b/XMonad/Layout/Combo.hs @@ -25,7 +25,7 @@ module XMonad.Layout.Combo ( import Data.List ( delete, intersect, (\\) ) import Data.Maybe ( isJust ) import XMonad hiding (focus) -import XMonad.StackSet ( integrate, Stack(..) ) +import XMonad.StackSet ( integrate, Workspace (..), Stack(..) ) import XMonad.Layout.WindowNavigation ( MoveWindowToWindow(..) ) import qualified XMonad.StackSet as W ( differentiate ) @@ -100,8 +100,8 @@ instance (LayoutClass l (), LayoutClass l1 a, LayoutClass l2 a, Read a, Show a, s2 = differentiate f' w2' f' = focus s:delete (focus s) f ([((),r1),((),r2)], msuper') <- doLayout super rinput superstack - (wrs1, ml1') <- runLayout l1 r1 s1 - (wrs2, ml2') <- runLayout l2 r2 s2 + (wrs1, ml1') <- runLayout (Workspace "" l1 s1) r1 + (wrs2, ml2') <- runLayout (Workspace "" l2 s2) r2 return (wrs1++wrs2, Just $ C2 f' w2' (maybe super id msuper') (maybe l1 id ml1') (maybe l2 id ml2')) handleMessage (C2 f ws2 super l1 l2) m |