From 9b4025ea874d7f5140f0e836ad21277e42996f89 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Wed, 11 Apr 2007 06:16:15 +0200
Subject: Xinerama screen switching bugfix

darcs-hash:20070411041615-b9aa7-fb18a7f93c7825f269844c0fcb1acb24ec494870
---
 StackSet.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/StackSet.hs b/StackSet.hs
index 2e1c936..cf1f343 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -138,7 +138,7 @@ screen n w = M.lookup n (ws2screen w)
 
 -- | The workspace visible on screen 'sc'. Nothing if screen is out of bounds.
 workspace :: Int -> StackSet a -> Maybe Int
-workspace sc w = M.lookup sc $ ws2screen w
+workspace sc w = M.lookup sc (screen2ws w)
 
 -- | A list of the currently visible workspaces.
 visibleWorkspaces :: StackSet a -> [Int]
-- 
cgit v1.2.3