diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2026-03-01 14:43:53 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2026-03-01 14:43:53 -0700 |
| commit | 5e678c0c4cad37ecbf91c43cbd829087d8340b2f (patch) | |
| tree | a70e617129f3653fd987c8d5df304837fd365fde /src/Main.hs | |
| parent | 0b01da5b4c2c9de8e3f0b7454cc5cb177aba1dd4 (diff) | |
| download | rde-5e678c0c4cad37ecbf91c43cbd829087d8340b2f.tar.gz rde-5e678c0c4cad37ecbf91c43cbd829087d8340b2f.tar.bz2 rde-5e678c0c4cad37ecbf91c43cbd829087d8340b2f.zip | |
[cleanup] clean up some unused functions.
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 10 |
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 |