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 | 399cca198965e1bd1810b72bdf487567688c3861 (patch) | |
| tree | 35fad55b83609addba97cbd143cbc2bc9337baf1 /StackSet.hs | |
| parent | 51205b6c4db6e9978d99d603138e35813f4fdd09 (diff) | |
| download | xmonad-399cca198965e1bd1810b72bdf487567688c3861.tar.gz xmonad-399cca198965e1bd1810b72bdf487567688c3861.tar.xz xmonad-399cca198965e1bd1810b72bdf487567688c3861.zip | |
Xinerama screen switching bugfix
darcs-hash:20070411041615-b9aa7-fb18a7f93c7825f269844c0fcb1acb24ec494870.gz
Diffstat (limited to '')
| -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] |