From c6ffb3fd47b9b02dd0d1a950696d1944794c577b Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 1 May 2022 15:49:35 -0600
Subject: Change WML workspaces to have a Maybe name.

---
 src/Rahm/Desktop/Keys.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/Rahm/Desktop/Keys.hs')

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" $
-- 
cgit