From afbf998d91dc0ea464d8ad6f0e89ebe6eb73d882 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Thu, 30 Nov 2023 19:01:08 -0700
Subject: Minor code improvements

---
 src/Rahm/Desktop/Keys.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/Rahm')

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index d61dbd6..e92cfdf 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -599,9 +599,13 @@ keymap = runKeys $ do
 
           withBorderColorM "#00ffff" selection $ do
             ws <- readNextWorkspace
-            (Endo allMovements) <- lift $ mconcat <$> mapM (fmap Endo . moveWindowToWorkspaceFn ws) selection
             lift $ do
+              (Endo allMovements) <-
+                mconcat
+                  <$> mapM (fmap Endo . moveWindowToWorkspaceFn ws) selection
+
               setAlternateWindows selection
+
               forM_ selection $ \win -> do
                 mapM_
                   ( \t -> do
-- 
cgit