From 1f25484605881af1a8e1475565d2ceb20b88ea85 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Wed, 23 Nov 2022 00:26:58 -0700
Subject: Change to use minimal imports.

This is achieved by using `stack build --ghc-options=-ddump-minimal-imports`
and looking for the *.imports files.
---
 src/Main.hs | 72 +++++++++++++++++++++++++++++++++++++++++++++++++------------
 1 file changed, 58 insertions(+), 14 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index d591d3a..79e5717 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,25 +1,69 @@
 import Control.Monad.Reader
-import Control.Monad.Trans.Class
-import qualified Data.Map as Map
-import Data.Monoid
+  ( MonadReader (ask),
+    ReaderT (runReaderT),
+  )
+import Control.Monad.Trans.Class ()
+import qualified Data.Map as Map ()
+import Data.Monoid (Endo (Endo))
 import Rahm.Desktop.Common
+  ( Location (Location),
+    getCurrentWorkspace,
+  )
 import Rahm.Desktop.DMenu (menuCommandString)
-import Rahm.Desktop.History
-import Rahm.Desktop.Hooks.WindowChange
-import Rahm.Desktop.Keys
-import Rahm.Desktop.Layout
-import Rahm.Desktop.Logger
-import Rahm.Desktop.Marking
-import Rahm.Desktop.RebindKeys
+import Rahm.Desktop.History (historyHook)
+import Rahm.Desktop.Hooks.WindowChange (withLocationChangeHook)
+import Rahm.Desktop.Keys (applyKeys)
+import Rahm.Desktop.Layout (myLayout)
+import Rahm.Desktop.Logger (LogLevel (Debug, Info), logs)
+import Rahm.Desktop.Marking (Mark, markAllLocations)
+import Rahm.Desktop.RebindKeys (WindowHook, remapHook)
 import qualified Rahm.Desktop.StackSet as W
-import Rahm.Desktop.XMobarLog
+  ( RationalRect (..),
+    allWindows,
+    float,
+  )
+import Rahm.Desktop.XMobarLog (spawnXMobar, xMobarLogHook)
 import System.Directory (getHomeDirectory)
 import System.Environment (setEnv)
 import System.FilePath ((</>))
-import Text.Printf
+import Text.Printf ()
 import XMonad
-import qualified XMonad as X
-import XMonad.Hooks.DynamicProperty
+  ( Default (def),
+    ManageHook,
+    Query (Query),
+    X,
+    XConfig
+      ( borderWidth,
+        clickJustFocuses,
+        focusFollowsMouse,
+        focusedBorderColor,
+        handleEventHook,
+        keys,
+        layoutHook,
+        logHook,
+        manageHook,
+        modMask,
+        normalBorderColor,
+        startupHook,
+        terminal,
+        workspaces
+      ),
+    appName,
+    className,
+    composeAll,
+    doF,
+    doFloat,
+    floatLocation,
+    liftX,
+    mod3Mask,
+    spawn,
+    title,
+    withWindowSet,
+    (-->),
+    (=?),
+  )
+import qualified XMonad as X (xmonad)
+import XMonad.Hooks.DynamicProperty (dynamicTitle)
 import XMonad.Hooks.EwmhDesktops (ewmh)
 import XMonad.Hooks.ManageDocks (docks)
 import XMonad.Hooks.ManageHelpers (doFullFloat, isFullscreen)
-- 
cgit