Remove more unused imports.

GHC left some of the unused imports as `import X ()`

23 files changed, 1 insertions, 61 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 79e5717..e2c9407 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -2,8 +2,6 @@ import Control.Monad.Reader
   ( 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),
@@ -26,7 +24,6 @@ import Rahm.Desktop.XMobarLog (spawnXMobar, xMobarLogHook)
 import System.Directory (getHomeDirectory)
 import System.Environment (setEnv)
 import System.FilePath ((</>))
-import Text.Printf ()
 import XMonad
   ( Default (def),
     ManageHook,
diff --git a/src/Rahm/Desktop/Common.hs b/src/Rahm/Desktop/Common.hs
index 7108887..e04b277 100644
--- a/src/Rahm/Desktop/Common.hs
+++ b/src/Rahm/Desktop/Common.hs
@@ -4,10 +4,8 @@ import Control.Monad (forM_, void, when)
 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 qualified Rahm.Desktop.StackSet as S
   ( Screen (Screen, workspace),
@@ -42,9 +40,6 @@ import XMonad
     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.
diff --git a/src/Rahm/Desktop/DMenu.hs b/src/Rahm/Desktop/DMenu.hs
index d1b3e59..cd72de4 100644
--- a/src/Rahm/Desktop/DMenu.hs
+++ b/src/Rahm/Desktop/DMenu.hs
@@ -3,7 +3,6 @@ module Rahm.Desktop.DMenu where
 import Control.Monad (void)
 import Data.List (intercalate)
 import Data.Map (Map)
-import qualified Data.Map as Map ()
 import Text.Printf (printf)
 import XMonad (X)
 import XMonad.Util.Dmenu (menuMapArgs)
diff --git a/src/Rahm/Desktop/History.hs b/src/Rahm/Desktop/History.hs
index 07e03e5..ab79352 100644
--- a/src/Rahm/Desktop/History.hs
+++ b/src/Rahm/Desktop/History.hs
@@ -2,14 +2,9 @@ module Rahm.Desktop.History where
 
 import Data.Default (Default (..))
 import Data.Foldable (toList)
-import Data.IntMap ()
-import qualified Data.IntMap as IntMap ()
 import Data.Sequence (Seq (..))
 import qualified Data.Sequence as Seq (length, (!?))
 import Rahm.Desktop.Common (Location (Location), focusLocation)
-import Rahm.Desktop.Hooks.WindowChange ()
-import Rahm.Desktop.Logger ()
-import qualified Rahm.Desktop.StackSet as W ()
 import Text.Printf (printf)
 import XMonad (ExtensionClass (initialValue), X)
 import qualified XMonad.Util.ExtensibleState as XS
diff --git a/src/Rahm/Desktop/Keys/Dsl.hs b/src/Rahm/Desktop/Keys/Dsl.hs
index 7f43f7a..1246d3b 100644
--- a/src/Rahm/Desktop/Keys/Dsl.hs
+++ b/src/Rahm/Desktop/Keys/Dsl.hs
@@ -90,7 +90,6 @@ module Rahm.Desktop.Keys.Dsl
 where
 
 import Control.Arrow (first, second)
-import Control.Monad ()
 import Control.Monad.State (State, execState, modify')
 import Control.Monad.Writer
   ( MonadWriter (tell),
diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs
index 07a4ae1..02ea94e 100644
--- a/src/Rahm/Desktop/Keys/Wml.hs
+++ b/src/Rahm/Desktop/Keys/Wml.hs
@@ -52,7 +52,6 @@ import Rahm.Desktop.History
     nextLocation,
     pastHistory,
   )
-import Rahm.Desktop.Keys.Dsl ()
 import Rahm.Desktop.Logger (LogLevel (Info, Trace), logs)
 import Rahm.Desktop.Marking
   ( farLeftWindow,
@@ -110,10 +109,8 @@ import XMonad
     xK_Escape,
     xK_Return,
   )
-import XMonad.Actions.CopyWindow as CopyWindow ()
 import XMonad.Prompt.ConfirmPrompt (confirmPrompt)
 import qualified XMonad.Util.ExtensibleState as XS (get, modify)
-import XMonad.Util.Run ()
 import Prelude
   ( Applicative,
     Eq ((==)),
diff --git a/src/Rahm/Desktop/Layout/ConsistentMosaic.hs b/src/Rahm/Desktop/Layout/ConsistentMosaic.hs
index 026a7dd..52406d6 100644
--- a/src/Rahm/Desktop/Layout/ConsistentMosaic.hs
+++ b/src/Rahm/Desktop/Layout/ConsistentMosaic.hs
@@ -4,10 +4,8 @@
 -- still work as expected.
 module Rahm.Desktop.Layout.ConsistentMosaic where
 
-import Data.Map ()
 import qualified Data.Map as Map (fromList, lookup)
 import Data.Maybe (mapMaybe)
-import Rahm.Desktop.Logger ()
 import qualified Rahm.Desktop.StackSet as W
   ( Screen (..),
     Stack (..),
diff --git a/src/Rahm/Desktop/Layout/Draw.hs b/src/Rahm/Desktop/Layout/Draw.hs
index 95a34eb..1e59156 100644
--- a/src/Rahm/Desktop/Layout/Draw.hs
+++ b/src/Rahm/Desktop/Layout/Draw.hs
@@ -6,8 +6,6 @@
 module Rahm.Desktop.Layout.Draw (drawLayout) where
 
 import Control.Arrow (second)
-import Control.Concurrent ()
-import Control.Exception ()
 import Control.Monad (foldM, forM_, unless)
 import Control.Monad.Writer (execWriter, tell)
 import Data.Foldable (find)
diff --git a/src/Rahm/Desktop/Layout/Flip.hs b/src/Rahm/Desktop/Layout/Flip.hs
index 8ebe9ac..b3162c9 100644
--- a/src/Rahm/Desktop/Layout/Flip.hs
+++ b/src/Rahm/Desktop/Layout/Flip.hs
@@ -11,7 +11,6 @@ module Rahm.Desktop.Layout.Flip
 where
 
 import Control.Arrow (second)
-import Data.Default ()
 import Data.List (intercalate)
 import XMonad
   ( Default (..),
diff --git a/src/Rahm/Desktop/Layout/Hole.hs b/src/Rahm/Desktop/Layout/Hole.hs
index 7f19e4c..1437c84 100644
--- a/src/Rahm/Desktop/Layout/Hole.hs
+++ b/src/Rahm/Desktop/Layout/Hole.hs
@@ -4,7 +4,6 @@
 -- Delegates to a lower layout, but leaves a hole where the next window will go.
 module Rahm.Desktop.Layout.Hole (hole, toggleHole) where
 
-import Data.Maybe ()
 import qualified Rahm.Desktop.StackSet as W
   ( Stack (Stack),
     Workspace (Workspace),
diff --git a/src/Rahm/Desktop/Layout/List.hs b/src/Rahm/Desktop/Layout/List.hs
index 48c2ab5..3d9214b 100644
--- a/src/Rahm/Desktop/Layout/List.hs
+++ b/src/Rahm/Desktop/Layout/List.hs
@@ -29,7 +29,6 @@ import Control.Arrow (second, (>>>))
 import Control.Monad.Identity (runIdentity)
 import Data.Maybe (fromJust, fromMaybe)
 import Data.Proxy (Proxy (..))
-import Data.Void ()
 import GHC.TypeLits (KnownNat, Nat, natVal, type (+))
 import qualified Rahm.Desktop.StackSet as W
   ( Workspace (Workspace),
diff --git a/src/Rahm/Desktop/Layout/Pop.hs b/src/Rahm/Desktop/Layout/Pop.hs
index ee277fb..0c7561a 100644
--- a/src/Rahm/Desktop/Layout/Pop.hs
+++ b/src/Rahm/Desktop/Layout/Pop.hs
@@ -14,8 +14,6 @@ module Rahm.Desktop.Layout.Pop
   )
 where
 
-import Data.Default ()
-import Rahm.Desktop.Layout.ReinterpretMessage ()
 import qualified Rahm.Desktop.StackSet as W
   ( Stack (focus),
     Workspace (Workspace),
@@ -28,7 +26,6 @@ import XMonad
     SomeMessage (SomeMessage),
     fromMessage,
   )
-import XMonad.Layout.LayoutModifier ()
 
 data Poppable (l :: * -> *) (a :: *) = Poppable
   { -- True if the current window is popped out or not.
diff --git a/src/Rahm/Desktop/Layout/Redescribe.hs b/src/Rahm/Desktop/Layout/Redescribe.hs
index 4a1a918..e65fd69 100644
--- a/src/Rahm/Desktop/Layout/Redescribe.hs
+++ b/src/Rahm/Desktop/Layout/Redescribe.hs
@@ -3,7 +3,6 @@
 -- to generate the new description.
 module Rahm.Desktop.Layout.Redescribe where
 
-import Data.Typeable ()
 import qualified Rahm.Desktop.StackSet as W
   ( Workspace (Workspace),
   )
diff --git a/src/Rahm/Desktop/Layout/Rotate.hs b/src/Rahm/Desktop/Layout/Rotate.hs
index 467ed96..c87bcab 100644
--- a/src/Rahm/Desktop/Layout/Rotate.hs
+++ b/src/Rahm/Desktop/Layout/Rotate.hs
@@ -11,7 +11,6 @@ module Rahm.Desktop.Layout.Rotate
 where
 
 import Control.Arrow (second)
-import Data.Default ()
 import XMonad
   ( Default (..),
     LayoutClass (description),
diff --git a/src/Rahm/Desktop/Logger.hs b/src/Rahm/Desktop/Logger.hs
index 9e4012a..228ef49 100644
--- a/src/Rahm/Desktop/Logger.hs
+++ b/src/Rahm/Desktop/Logger.hs
@@ -2,7 +2,6 @@ module Rahm.Desktop.Logger where
 
 import Control.Monad (forM_, join, when)
 import Data.Time.LocalTime (getZonedTime)
-import System.IO ()
 import Text.Printf (PrintfArg, PrintfType, printf)
 import XMonad
   ( ExtensionClass (..),
diff --git a/src/Rahm/Desktop/Marking.hs b/src/Rahm/Desktop/Marking.hs
index 84b3990..0f0412c 100644
--- a/src/Rahm/Desktop/Marking.hs
+++ b/src/Rahm/Desktop/Marking.hs
@@ -15,12 +15,8 @@ module Rahm.Desktop.Marking
   )
 where
 
-import Control.Exception ()
-import Control.Monad ()
 import Control.Monad.Trans (lift)
 import Control.Monad.Trans.Maybe (MaybeT (MaybeT))
-import Data.Char ()
-import Data.IORef ()
 import Data.List (sortOn)
 import Data.List.Safe (head)
 import Data.Map (Map)
@@ -32,15 +28,11 @@ import qualified Data.Map as Map
   )
 import Data.Maybe (catMaybes, fromMaybe)
 import Data.Ord (Down (..))
-import Data.Sequence ()
-import qualified Data.Sequence as Seq ()
 import Rahm.Desktop.Common
   ( Location (Location),
     focusLocation,
     getCurrentWorkspace,
   )
-import Rahm.Desktop.History ()
-import Rahm.Desktop.Hooks.WindowChange ()
 import Rahm.Desktop.Logger (LogLevel (Debug), logs)
 import Rahm.Desktop.StackSet
   ( Screen (Screen),
@@ -52,10 +44,6 @@ import Rahm.Desktop.StackSet
     mapWindows,
     peek,
   )
-import Rahm.Desktop.Workspaces ()
-import System.Environment ()
-import System.FilePath ()
-import System.IO ()
 import XMonad
   ( ExtensionClass (..),
     Rectangle (Rectangle),
diff --git a/src/Rahm/Desktop/RebindKeys.hs b/src/Rahm/Desktop/RebindKeys.hs
index b77b328..be3eff6 100644
--- a/src/Rahm/Desktop/RebindKeys.hs
+++ b/src/Rahm/Desktop/RebindKeys.hs
@@ -5,7 +5,7 @@ module Rahm.Desktop.RebindKeys where
 
 import Control.Monad (forM, forM_)
 import Control.Monad.Trans.Class (lift)
-import Data.Default ()
+import Data.Default (def)
 import Data.Map (Map)
 import qualified Data.Map as Map
   ( delete,
@@ -15,8 +15,6 @@ import qualified Data.Map as Map
     lookup,
   )
 import Data.Monoid (All (..))
-import Rahm.Desktop.Logger ()
-import Text.Printf ()
 import XMonad
   ( Default (def),
     Display,
diff --git a/src/Rahm/Desktop/StackSet.hs b/src/Rahm/Desktop/StackSet.hs
index 86b8a33..89e7eed 100644
--- a/src/Rahm/Desktop/StackSet.hs
+++ b/src/Rahm/Desktop/StackSet.hs
@@ -17,7 +17,6 @@ module Rahm.Desktop.StackSet
   )
 where
 
-import Data.Default ()
 import Data.List (find)
 import Data.List.Safe (head)
 import qualified Data.Map as Map
diff --git a/src/Rahm/Desktop/Submap.hs b/src/Rahm/Desktop/Submap.hs
index 203eb20..5eb8ea0 100644
--- a/src/Rahm/Desktop/Submap.hs
+++ b/src/Rahm/Desktop/Submap.hs
@@ -12,7 +12,6 @@ module Rahm.Desktop.Submap
 where
 
 import Control.Concurrent (threadDelay)
-import Control.Monad ()
 import Control.Monad.Fix (fix)
 import Control.Monad.Trans (MonadTrans (lift))
 import Control.Monad.Trans.Maybe (MaybeT (MaybeT))
@@ -21,8 +20,6 @@ import qualified Data.Map as Map (findWithDefault, lookup)
 import Data.Time.Clock.POSIX (getPOSIXTime)
 import Data.Word (Word64)
 import Rahm.Desktop.Common (runMaybeT_)
-import Rahm.Desktop.XMobarLog.PendingBuffer ()
-import Text.Printf ()
 import XMonad
   ( Button,
     ButtonMask,
diff --git a/src/Rahm/Desktop/SwapMaster.hs b/src/Rahm/Desktop/SwapMaster.hs
index 38c2c3c..c7e02bc 100644
--- a/src/Rahm/Desktop/SwapMaster.hs
+++ b/src/Rahm/Desktop/SwapMaster.hs
@@ -5,7 +5,6 @@ import Control.Monad (void)
 import Control.Monad.State (gets)
 import Control.Monad.Trans (lift)
 import Control.Monad.Trans.Maybe (MaybeT (..))
-import Data.Maybe ()
 import qualified Rahm.Desktop.StackSet as W
   ( focusMaster,
     masterWindow,
diff --git a/src/Rahm/Desktop/Theater.hs b/src/Rahm/Desktop/Theater.hs
index 10d8043..7634607 100644
--- a/src/Rahm/Desktop/Theater.hs
+++ b/src/Rahm/Desktop/Theater.hs
@@ -4,15 +4,11 @@ module Rahm.Desktop.Theater where
 -- a "theater" and then restore it later. If new windows were added, those new
 -- windows are put into the hidden workspace.
 
-import Control.Monad ()
 import Data.Default (Default (..))
 import Data.List (sortOn, (\\))
 import Data.Map (Map)
 import qualified Data.Map as Map (delete, insert, lookup, toList)
 import Data.Maybe (isNothing)
-import Data.Proxy ()
-import Data.Typeable ()
-import Rahm.Desktop.Logger ()
 import XMonad (X)
 import qualified XMonad as X
   ( ExtensionClass (..),
diff --git a/src/Rahm/Desktop/Workspaces.hs b/src/Rahm/Desktop/Workspaces.hs
index dc9d317..95d2297 100644
--- a/src/Rahm/Desktop/Workspaces.hs
+++ b/src/Rahm/Desktop/Workspaces.hs
@@ -2,13 +2,11 @@
 module Rahm.Desktop.Workspaces where
 
 import Control.Arrow (Arrow ((&&&)))
-import Control.Monad.Trans.Maybe ()
 import Data.Char (isUpper, toLower, toUpper)
 import Data.List (find, sort, sortBy, sortOn)
 import Data.List.Safe ((!!))
 import Data.Maybe (fromMaybe, mapMaybe)
 import Rahm.Desktop.Common (getCurrentWorkspace, gotoWorkspace)
-import Rahm.Desktop.History ()
 import qualified Rahm.Desktop.StackSet as W
   ( Screen (Screen, screenDetail, workspace),
     StackSet (StackSet, current, visible),
diff --git a/src/Rahm/Desktop/XMobarLog.hs b/src/Rahm/Desktop/XMobarLog.hs
index dbb08db..9e6b5dd 100644
--- a/src/Rahm/Desktop/XMobarLog.hs
+++ b/src/Rahm/Desktop/XMobarLog.hs
@@ -1,13 +1,10 @@
 module Rahm.Desktop.XMobarLog (XMobarLog, spawnXMobar, xMobarLogHook) where
 
-import Control.Arrow ()
 import Control.Monad (forM_, unless)
 import Control.Monad.Writer (execWriter, tell)
 import Data.Char (isAsciiLower, isAsciiUpper, isDigit, isSpace)
 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),
@@ -25,7 +22,6 @@ import Rahm.Desktop.Workspaces
   )
 import Rahm.Desktop.XMobarLog.PendingBuffer (getPendingBuffer)
 import System.IO (Handle, hPutStrLn, hSetEncoding, utf8)
-import System.Process ()
 import Text.Printf (printf)
 import XMonad (X)
 import qualified XMonad as X (XState (windowset), gets, io)