1 files changed, 3 insertions, 7 deletions
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