diff options
Diffstat (limited to 'src/Rahm/Desktop/Keys.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs index 26021bb..ab72645 100644 --- a/src/Rahm/Desktop/Keys.hs +++ b/src/Rahm/Desktop/Keys.hs @@ -282,10 +282,9 @@ keymap = runKeys $ do shiftMod $ doc "Swap a workspace with another workspace." $ - runMaybeT_ $ do - ws1 <- readNextWorkspace - ws2 <- readNextWorkspace - lift $ windows $ W.swapWorkspaces (workspaceName ws1) (workspaceName ws2) + runMaybeT_ $ + lift . windows . uncurry W.swapWorkspaces =<< + (,) <$> readNextWorkspaceName <*> readNextWorkspaceName controlMod $ doc "Move the current focused window to another workspace and view that workspace" $ |