Clean up Control.Monad imports

XMonad/Actions/RandomBackground.hs

@@ -24,7 +24,6 @@ module XMonad.Actions.RandomBackground (
 import XMonad(X, XConf(config), XConfig(terminal), io, spawn,
               MonadIO, asks)
 import System.Random
-import Control.Monad(liftM)
 import Numeric(showHex)
 
 -- $usage

XMonad/Actions/TopicSpace.hs

@@ -47,7 +47,7 @@ import Data.Maybe (fromMaybe, isNothing, listToMaybe, fromJust)
 import Data.Ord
 import qualified Data.Map as M
 import Control.Applicative (liftA2)
-import Control.Monad (liftM2,when,unless,replicateM_)
+import Control.Monad (when,unless,replicateM_)
 import System.IO
 
 import qualified XMonad.StackSet as W

XMonad/Actions/WorkspaceCursors.hs

@@ -49,7 +49,7 @@ import XMonad.Layout.LayoutModifier(ModifiedLayout(..),
 import XMonad(Typeable, Message, WorkspaceId, X, XState(windowset),
               fromMessage, sendMessage, windows, gets)
 import Control.Applicative (liftA2)
-import Control.Monad((<=<), guard, liftM, liftM2, when)
+import Control.Monad((<=<), guard, when)
 import Data.Foldable(Foldable(foldMap), toList)
 import Data.Maybe(fromJust, listToMaybe)
 import Data.Monoid(Monoid(mappend, mconcat))

XMonad/Hooks/DynamicLog.hs

@@ -60,7 +60,7 @@ module XMonad.Hooks.DynamicLog (
 
 import Codec.Binary.UTF8.String (encodeString)
 import Control.Applicative (liftA2)
-import Control.Monad (liftM2, msum)
+import Control.Monad (msum)
 import Data.Char ( isSpace, ord )
 import Data.List (intersperse, stripPrefix, isPrefixOf, sortBy)
 import Data.Maybe ( isJust, catMaybes, mapMaybe, fromMaybe )

XMonad/Layout/TallMastersCombo.hs

@@ -42,7 +42,7 @@ import XMonad hiding (focus)
 import XMonad.StackSet (Workspace(..),integrate',Stack(..))
 import qualified XMonad.StackSet as W
 import Data.Maybe (fromJust,isJust)
-import Control.Monad (join, foldM)
+import Control.Monad (foldM)
 
 ---------------------------------------------------------------------------------
 -- $usage

XMonad/Prompt/RunOrRaise.hs

@@ -28,7 +28,6 @@ import XMonad.Util.Run (runProcessWithInput)
 
 import Control.Exception as E
 import Control.Applicative (liftA2)
-import Control.Monad (liftM, liftM2)
 import System.Directory (doesDirectoryExist, doesFileExist, executable, getPermissions)
 
 econst :: Monad m => a -> IOException -> m a

XMonad/Util/Dmenu.hs

@@ -24,7 +24,6 @@ import XMonad
 import qualified XMonad.StackSet as W
 import qualified Data.Map as M
 import XMonad.Util.Run
-import Control.Monad (liftM)
 
 -- $usage
 -- You can use this module with the following in your Config.hs file:

XMonad/Util/ExclusiveScratchpads.hs

@@ -37,7 +37,7 @@ module XMonad.Util.ExclusiveScratchpads (
   ) where
 
 import Control.Applicative (liftA2)
-import Control.Monad ((<=<),filterM,liftM2)
+import Control.Monad ((<=<),filterM)
 import Data.Monoid (appEndo)
 import XMonad
 import XMonad.Actions.Minimize

XMonad/Util/Stack.hs

@@ -81,7 +81,7 @@ module XMonad.Util.Stack ( -- * Usage
 
 import qualified XMonad.StackSet as W
 import Control.Applicative ((<|>))
-import Control.Monad (guard,liftM)
+import Control.Monad (guard)
 import Data.List (sortBy)
 
 

XMonad/Util/StringProp.hs

@@ -20,7 +20,6 @@ module XMonad.Util.StringProp (
     ) where
 
 import XMonad
-import Control.Monad(liftM)
 import Foreign.C.String (castCCharToChar,castCharToCChar)
 
 type StringProp = String

XMonad/Util/XSelection.hs

@@ -23,7 +23,6 @@ module XMonad.Util.XSelection (  -- * Usage
                                  transformSafePromptSelection) where
 
 import Control.Exception.Extensible as E (catch,SomeException(..))
-import Control.Monad (liftM, join)
 import Data.Maybe (fromMaybe)
 import XMonad
 import XMonad.Util.Run (safeSpawn, unsafeSpawn)