Change to use minimal imports.

This is achieved by using `stack build --ghc-options=-ddump-minimal-imports`
and looking for the *.imports files.

1 files changed, 19 insertions, 9 deletions

diff --git a/src/Rahm/Desktop/XMobarLog.hs b/src/Rahm/Desktop/XMobarLog.hs
index 6f3059c..dbb08db 100644
--- a/src/Rahm/Desktop/XMobarLog.hs
+++ b/src/Rahm/Desktop/XMobarLog.hs
@@ -1,24 +1,34 @@
 module Rahm.Desktop.XMobarLog (XMobarLog, spawnXMobar, xMobarLogHook) where
 
-import Control.Arrow (second)
+import Control.Arrow ()
 import Control.Monad (forM_, unless)
 import Control.Monad.Writer (execWriter, tell)
 import Data.Char (isAsciiLower, isAsciiUpper, isDigit, isSpace)
-import Data.IORef
-import Data.List (sortBy)
-import Data.Maybe (isJust, mapMaybe)
-import Data.Ord (comparing)
+import Data.IORef (newIORef, readIORef, writeIORef)
+import Data.List ()
+import Data.Maybe (isJust)
+import Data.Ord ()
 import Rahm.Desktop.Layout.Draw (drawLayout)
 import Rahm.Desktop.Logger
+  ( LogLevel (Debug, Error, Fatal, Trace, Warn),
+    getLogLevel,
+    logs,
+  )
 import qualified Rahm.Desktop.StackSet as S
+  ( Workspace (tag),
+    peek,
+  )
 import Rahm.Desktop.Theater (getTheaters)
-import Rahm.Desktop.Workspaces (WorkspaceState (..), getPopulatedWorkspaces)
+import Rahm.Desktop.Workspaces
+  ( WorkspaceState (..),
+    getPopulatedWorkspaces,
+  )
 import Rahm.Desktop.XMobarLog.PendingBuffer (getPendingBuffer)
 import System.IO (Handle, hPutStrLn, hSetEncoding, utf8)
-import System.Process
-import Text.Printf
+import System.Process ()
+import Text.Printf (printf)
 import XMonad (X)
-import qualified XMonad as X
+import qualified XMonad as X (XState (windowset), gets, io)
 import XMonad.Util.NamedWindows (getName)
 import XMonad.Util.Run (runProcessWithInput, spawnPipe)