diff options
| author | Jason Creighton <jcreigh@gmail.com> | 2007-04-11 06:16:15 +0200 |
|---|---|---|
| committer | Jason Creighton <jcreigh@gmail.com> | 2007-04-11 06:16:15 +0200 |
| commit | 9b4025ea874d7f5140f0e836ad21277e42996f89 (patch) | |
| tree | 35fad55b83609addba97cbd143cbc2bc9337baf1 /StackSet.hs | |
| parent | b3e119be0626366054637370cb8ee1e3152fd6ac (diff) | |
| download | metatile-9b4025ea874d7f5140f0e836ad21277e42996f89.tar metatile-9b4025ea874d7f5140f0e836ad21277e42996f89.zip | |
Xinerama screen switching bugfix
darcs-hash:20070411041615-b9aa7-fb18a7f93c7825f269844c0fcb1acb24ec494870
Diffstat (limited to 'StackSet.hs')
| -rw-r--r-- | StackSet.hs | 2 |
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] |