From aa7b17533695687a9c31070f5d9845c52493856e Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 11 Jun 2007 20:34:39 +0200
Subject: Updates to work with recent API changes

darcs-hash:20070611183439-a5988-c3d6cc194fa83f012ab49d6d79130ff459dcdfe1.gz
---
 TwoPane.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'TwoPane.hs')

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
-- 
cgit v1.2.3