From 5e678c0c4cad37ecbf91c43cbd829087d8340b2f Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 1 Mar 2026 14:43:53 -0700
Subject: [cleanup] clean up some unused functions.

---
 src/Main.hs | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 1c67732..e6bced1 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,7 +1,8 @@
 import Control.Monad.Reader
-  ( MonadReader (ask),
+  ( MonadIO (liftIO),
+    MonadReader (ask),
     ReaderT (runReaderT),
-    liftM2, MonadIO (liftIO),
+    liftM2,
   )
 import Data.Char (toUpper)
 import Data.List (isInfixOf, isPrefixOf)
@@ -114,7 +115,6 @@ main = do
           spawn fp
           spawnOnce "alacritty --class popup-terminal"
           addScreenCorner SCUpperLeft (liftIO $ putStrLn "Hello, World!"),
-
         manageHook =
           composeAll
             [ isFullscreen --> doFullFloat,
@@ -177,10 +177,6 @@ shouldChromeFloat = do
   return $
     className == "Google-chrome" && not ("New Tab" `isPrefixOf` title)
 
-changeHook :: Location -> Location -> X ()
-changeHook l1 l2 =
-  logs Info "Change %s -> %s" (show l1) (show l2)
-
 doLogWindow :: ManageHook
 doLogWindow = do
   t <- title
-- 
cgit