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, 45 insertions, 17 deletions

diff --git a/src/Rahm/Desktop/Common.hs b/src/Rahm/Desktop/Common.hs
index e012a8f..d02fb99 100644
--- a/src/Rahm/Desktop/Common.hs
+++ b/src/Rahm/Desktop/Common.hs
@@ -1,24 +1,52 @@
 module Rahm.Desktop.Common where
 
 import Control.Monad (forM_, void, when)
-import Control.Monad.Trans.Maybe
-import Data.Char
-import Data.List hiding ((!!))
-import Data.List.Safe ((!!))
-import qualified Data.Map as Map
-import Data.Maybe
-import Data.Ord (comparing)
-import Rahm.Desktop.DMenu
-import Rahm.Desktop.PromptConfig
+import Control.Monad.Trans.Maybe (MaybeT (..))
+import Data.Char (toLower)
+import Data.List (concatMap, head, isInfixOf, map, (++))
+import Data.List.Safe ()
+import qualified Data.Map as Map (fromListWith)
+import Data.Maybe (Maybe (..))
+import Data.Ord ()
+import Rahm.Desktop.DMenu (runDMenuPromptWithMap)
+import Rahm.Desktop.PromptConfig ()
 import qualified Rahm.Desktop.StackSet as S
-import Text.Printf
-import XMonad hiding (Screen, workspaces)
-import XMonad.Prompt
-import XMonad.Prompt.Input
-import XMonad.Prompt.Shell
-import XMonad.Util.Run
-import XMonad.Util.XUtils
-import Prelude hiding ((!!))
+  ( Screen (Screen, workspace),
+    StackSet (StackSet, current),
+    Workspace (Workspace, stack, tag),
+    allWindows,
+    focusWindow,
+    greedyView,
+    integrate',
+    peek,
+    shiftWin,
+    workspaces,
+  )
+import Text.Printf (printf)
+import XMonad
+  ( Window,
+    WorkspaceId,
+    X,
+    XConf (config, display),
+    XConfig (focusedBorderColor, normalBorderColor),
+    appName,
+    asks,
+    focus,
+    io,
+    refresh,
+    runQuery,
+    setWindowBorderWidth,
+    setWindowBorderWithFallback,
+    title,
+    windows,
+    withFocused,
+    withWindowSet,
+  )
+import XMonad.Prompt (XPrompt (commandToComplete, showXPrompt))
+import XMonad.Prompt.Input ()
+import XMonad.Prompt.Shell ()
+import XMonad.Util.Run ()
+import XMonad.Util.XUtils (pixelToString, stringToPixel)
 
 -- A location is a workspace and maybe a window with that workspace.
 data Location = Location