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
---
 FindEmptyWorkspace.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'FindEmptyWorkspace.hs')

diff --git a/FindEmptyWorkspace.hs b/FindEmptyWorkspace.hs
index efd524f..860f8b7 100644
--- a/FindEmptyWorkspace.hs
+++ b/FindEmptyWorkspace.hs
@@ -41,7 +41,7 @@ findEmptyWorkspace = findKey (([],[]) ==) . W.stacks
 
 withEmptyWorkspace :: (WorkspaceId -> X ()) -> X ()
 withEmptyWorkspace f = do
-    ws <- gets workspace
+    ws <- gets windowset
     whenJust (findEmptyWorkspace ws) f
 
 -- | Find and view an empty workspace. Do nothing if all workspaces are
-- 
cgit v1.2.3