From cd75c27ff2e3b20d3adf8dcc1de9894873314c04 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 21 May 2007 06:21:18 +0200
Subject: Fixes for windowset -> workspace rename

darcs-hash:20070521042118-a5988-a2f979585ee35d3905dbcf6244c22af67489caa6.gz
---
 TwoPane.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'TwoPane.hs')

diff --git a/TwoPane.hs b/TwoPane.hs
index 56925c6..d70f49f 100644
--- a/TwoPane.hs
+++ b/TwoPane.hs
@@ -16,7 +16,7 @@ twoPane :: Rational -> Rational -> Layout
 twoPane delta split = Layout { doLayout = arrange, modifyLayout = message }
  where
     arrange rect ws@(w:x:_) = do
-        (Just f) <- gets (W.peek . workspace) -- safe because of pattern match above
+        (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
         mapM_ hide . filter (\a -> a /= w && a /= y)  $ ws
-- 
cgit v1.2.3