diff options
Diffstat (limited to 'src/Rahm/Desktop/Keys')
| -rw-r--r-- | src/Rahm/Desktop/Keys/Wml.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs index e5c45e7..9122ccb 100644 --- a/src/Rahm/Desktop/Keys/Wml.hs +++ b/src/Rahm/Desktop/Keys/Wml.hs @@ -539,22 +539,22 @@ readNextWorkspace = -- Workspace to the next screen to the right of the next workspace. (_, _, ",") -> do ws <- readNextWorkspaceName - liftXToFeed $ justWorkspace <$> getWorkspaceToTheRight ws + hoistMaybeT $ justWorkspace <$> getWorkspaceToTheRight ws -- Workspace on the screen below the current workspace.. (_, _, "%") -> do ws <- readNextWorkspaceName - liftXToFeed $ justWorkspace <$> getWorkspaceAbove ws + hoistMaybeT $ justWorkspace <$> getWorkspaceAbove ws -- Workspace on the screen above the current workspace.. (_, _, "+") -> do ws <- readNextWorkspaceName - liftXToFeed $ justWorkspace <$> getWorkspaceAbove ws + hoistMaybeT $ justWorkspace <$> getWorkspaceBelow ws -- Workspace to the next screen to the left of the next workspace. (_, _, ";") -> do ws <- readNextWorkspaceName - liftXToFeed $ justWorkspace <$> getWorkspaceToTheLeft ws + hoistMaybeT $ justWorkspace <$> getWorkspaceToTheLeft ws -- The workspace with the searched for window. (_, _, "/") -> |