summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJason Creighton <jcreigh@gmail.com>2007-04-11 06:16:15 +0200
committerJason Creighton <jcreigh@gmail.com>2007-04-11 06:16:15 +0200
commit9b4025ea874d7f5140f0e836ad21277e42996f89 (patch)
tree35fad55b83609addba97cbd143cbc2bc9337baf1
parentb3e119be0626366054637370cb8ee1e3152fd6ac (diff)
downloadmetatile-9b4025ea874d7f5140f0e836ad21277e42996f89.tar
metatile-9b4025ea874d7f5140f0e836ad21277e42996f89.zip
Xinerama screen switching bugfix
darcs-hash:20070411041615-b9aa7-fb18a7f93c7825f269844c0fcb1acb24ec494870
-rw-r--r--StackSet.hs2
1 files changed, 1 insertions, 1 deletions
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]