diff options
| -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] |