From 92e36c9262e7cc2f9ffdb7e45ef9aed43fa1e18c Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Mon, 18 Apr 2022 16:38:05 -0600
Subject: Rename Lang to WindowManagementLanguage (Moved to Wml.hs). Add more
 features to it.

---
 src/Rahm/Desktop/Marking.hs | 6 ------
 1 file changed, 6 deletions(-)

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

diff --git a/src/Rahm/Desktop/Marking.hs b/src/Rahm/Desktop/Marking.hs
index 90808cf..1ea9782 100644
--- a/src/Rahm/Desktop/Marking.hs
+++ b/src/Rahm/Desktop/Marking.hs
@@ -1,7 +1,6 @@
 module Rahm.Desktop.Marking (
   markCurrentWindow,
   jumpToMark,
-  moveLocationToWorkspace,
   setAlternateWindows,
   getAlternateWindows,
   setAlternateWorkspace,
@@ -131,11 +130,6 @@ swapWithFocused winToSwap stackSet =
           mapWindows (
             \w -> if w == winToSwap then focused else w) stackSet
 
-moveLocationToWorkspace :: Location -> WorkspaceId ->  X ()
-moveLocationToWorkspace (Location _ (Just win)) wid =
-  windows $ shiftWin wid win
-moveLocationToWorkspace _ _ = return ()
-
 windowRect :: Window -> X (Maybe Rectangle)
 windowRect win = withDisplay $ \dpy -> (do
   (_, x, y, w, h, bw, _) <- io $ getGeometry dpy win
-- 
cgit