Updates to work with recent API changes

darcs-hash:20070611183439-a5988-c3d6cc194fa83f012ab49d6d79130ff459dcdfe1.gz

1 files changed, 2 insertions, 1 deletions

diff --git a/TwoPane.hs b/TwoPane.hs
index 18abdf6..ba6d616 100644
--- a/TwoPane.hs
+++ b/TwoPane.hs
@@ -13,9 +13,10 @@ import qualified StackSet as W
 import Control.Monad.State (gets)
 
 twoPane :: Rational -> Rational -> Layout
-twoPane delta split = Layout { doLayout = arrange, modifyLayout = message }
+twoPane delta split = Layout { doLayout = \r -> arrange r . W.integrate, modifyLayout = message }
  where
     arrange rect ws@(w:x:_) = do
+        -- TODO this is buggy, it might peek another workspace
         (Just f) <- gets (W.peek . windowset) -- safe because of pattern match above
         let y = if f == w then x else f
             (left, right) = splitHorizontallyBy split rect