diff options
Diffstat (limited to 'src/Rahm/Desktop/Keys')
| -rw-r--r-- | src/Rahm/Desktop/Keys/Wml.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs index 61c19b2..675d56e 100644 --- a/src/Rahm/Desktop/Keys/Wml.hs +++ b/src/Rahm/Desktop/Keys/Wml.hs @@ -562,11 +562,11 @@ readNextWorkspaceWithHandler handle = screens <- mt $ map (W.tag . W.workspace . snd) - <$> withWindowSet (return . getHorizontallyOrderedScreens) + <$> withWindowSet (return . reverse . getHorizontallyOrderedScreens) - let (front, _) = break ((== workspaceName ws) . Just) (screens ++ screens) + let (_, rest) = break ((== workspaceName ws) . Just) (screens ++ screens) - justWorkspace <$> MaybeT (return $ last front) + justWorkspace <$> MaybeT (return $ head $ tail rest) -- The workspace with the searched for window. (_, _, "/") -> |