diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-05-01 15:49:35 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-05-01 15:50:40 -0600 |
| commit | 13f2c99387be8217fd48a252057957f6bf6ac230 (patch) | |
| tree | 8fadda992e1c535e721350a03f4dd336b1f06e7f /src/Rahm/Desktop/Keys.hs | |
| parent | fcea6ce1371de988deb2dd719263cb2c9c59dfd7 (diff) | |
| download | rde-13f2c99387be8217fd48a252057957f6bf6ac230.tar.gz rde-13f2c99387be8217fd48a252057957f6bf6ac230.tar.bz2 rde-13f2c99387be8217fd48a252057957f6bf6ac230.zip | |
Change WML workspaces to have a Maybe name.
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" $ |