From ea291e76b2ab45e13f648e82b63c4668974c2eae Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Mon, 4 Dec 2023 14:32:11 -0700
Subject: Add ability to swap two workspaces with the W command

---
 src/Rahm/Desktop/Common.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/src/Rahm/Desktop/Common.hs b/src/Rahm/Desktop/Common.hs
index 47156bb..4787598 100644
--- a/src/Rahm/Desktop/Common.hs
+++ b/src/Rahm/Desktop/Common.hs
@@ -185,7 +185,9 @@ withBorderWidth width ws fn = do
   return ret
 
 gotoWorkspace :: WorkspaceId -> X ()
-gotoWorkspace wid = windows $ S.greedyView wid
+gotoWorkspace wid = do
+   logs Debug "GotoWorkspace %s" wid
+   windows $ S.greedyView wid
 
 moveLocationToWorkspace :: Location -> WorkspaceId -> X ()
 moveLocationToWorkspace (Location _ (Just win)) wid =
-- 
cgit