From 6516064616b0b993a694cb4e8423a53c60a9b3c3 Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@cis.upenn.edu>
Date: Tue, 12 Jan 2010 18:25:07 +0100
Subject: suppress some warnings under ghc 6.12.1 and clean up redundant
 imports to get rid of some others.

Ignore-this: bf3487b27036b02797d9f528a078d006

darcs-hash:20100112172507-1e371-1b466e62ac727b196330c72c8553116282ef5702.gz
---
 XMonad/Util/Dzen.hs            | 1 -
 XMonad/Util/NamedActions.hs    | 7 ++-----
 XMonad/Util/NamedScratchpad.hs | 4 +---
 XMonad/Util/Paste.hs           | 1 -
 XMonad/Util/PositionStore.hs   | 3 ---
 XMonad/Util/Scratchpad.hs      | 1 -
 XMonad/Util/XSelection.hs      | 2 +-
 7 files changed, 4 insertions(+), 15 deletions(-)

(limited to 'XMonad/Util')

diff --git a/XMonad/Util/Dzen.hs b/XMonad/Util/Dzen.hs
index a7fb3db..05ff2ea 100644
--- a/XMonad/Util/Dzen.hs
+++ b/XMonad/Util/Dzen.hs
@@ -38,7 +38,6 @@ module XMonad.Util.Dzen (
   ) where
 
 import Control.Monad
-import Data.List
 import XMonad
 import XMonad.StackSet
 import XMonad.Util.Run (runProcessWithInputAndWait, seconds)
diff --git a/XMonad/Util/NamedActions.hs b/XMonad/Util/NamedActions.hs
index 6ae7552..41d9c31 100644
--- a/XMonad/Util/NamedActions.hs
+++ b/XMonad/Util/NamedActions.hs
@@ -45,17 +45,14 @@ import XMonad.Actions.Submap(submap)
 import XMonad
 import System.Posix.Process(executeFile)
 import Control.Arrow(Arrow((&&&), second, (***)))
-import Data.Bits(Bits((.&.), complement, (.|.)))
-import Data.Function((.), const, ($), flip, id)
-import Data.List((++), filter, zip, map, concatMap, null, unlines,
-                 groupBy)
+import Data.Bits(Bits((.&.), complement))
+import Data.List (groupBy)
 import System.Exit(ExitCode(ExitSuccess), exitWith)
 
 import Control.Applicative ((<*>))
 
 import qualified Data.Map as M
 import qualified XMonad.StackSet as W
-import qualified XMonad
 
 -- $usage
 -- Here is an example config that demonstrates the usage of 'sendMessage'',
diff --git a/XMonad/Util/NamedScratchpad.hs b/XMonad/Util/NamedScratchpad.hs
index 6e67571..7269103 100644
--- a/XMonad/Util/NamedScratchpad.hs
+++ b/XMonad/Util/NamedScratchpad.hs
@@ -27,13 +27,11 @@ module XMonad.Util.NamedScratchpad (
   ) where
 
 import XMonad
-import XMonad.Core
-import XMonad.ManageHook (composeAll,doFloat)
 import XMonad.Hooks.ManageHelpers (doRectFloat)
 import XMonad.Actions.DynamicWorkspaces (addHiddenWorkspace)
 
 import Control.Monad (filterM)
-import Data.Maybe (maybe,listToMaybe)
+import Data.Maybe (listToMaybe)
 
 import qualified XMonad.StackSet as W
 
diff --git a/XMonad/Util/Paste.hs b/XMonad/Util/Paste.hs
index d6a5467..0d78653 100644
--- a/XMonad/Util/Paste.hs
+++ b/XMonad/Util/Paste.hs
@@ -29,7 +29,6 @@ import Control.Monad.Reader (asks)
 import XMonad.Operations (withFocused)
 import Data.Char (isUpper)
 import Data.Maybe (listToMaybe)
-import Graphics.X11.Xlib.Misc (stringToKeysym)
 import XMonad.Util.XSelection (getSelection)
 import XMonad.Util.EZConfig (parseKey)
 import Text.ParserCombinators.ReadP (readP_to_S)
diff --git a/XMonad/Util/PositionStore.hs b/XMonad/Util/PositionStore.hs
index 830f068..52c616a 100644
--- a/XMonad/Util/PositionStore.hs
+++ b/XMonad/Util/PositionStore.hs
@@ -27,9 +27,6 @@ module XMonad.Util.PositionStore (
 
 import XMonad
 import qualified XMonad.Util.ExtensibleState as XS
-import Graphics.X11.Xlib
-import Graphics.X11.Types
-import Data.Typeable
 import qualified Data.Map as M
 
 -- Store window positions relative to the upper left screen edge
diff --git a/XMonad/Util/Scratchpad.hs b/XMonad/Util/Scratchpad.hs
index 60effae..63d4f60 100644
--- a/XMonad/Util/Scratchpad.hs
+++ b/XMonad/Util/Scratchpad.hs
@@ -24,7 +24,6 @@ module XMonad.Util.Scratchpad (
   ) where
 
 import XMonad
-import XMonad.Core
 import qualified XMonad.StackSet as W
 import XMonad.Util.NamedScratchpad
 
diff --git a/XMonad/Util/XSelection.hs b/XMonad/Util/XSelection.hs
index 9113429..ad660c6 100644
--- a/XMonad/Util/XSelection.hs
+++ b/XMonad/Util/XSelection.hs
@@ -23,7 +23,7 @@ module XMonad.Util.XSelection (  -- * Usage
                                  transformSafePromptSelection) where
 
 import Control.Exception as E (catch)
-import Control.Monad(Monad (return, (>>)), Functor(..), liftM, join)
+import Control.Monad (liftM, join)
 import Data.Maybe (fromMaybe)
 import XMonad
 import XMonad.Util.Run (safeSpawn, unsafeSpawn)
-- 
cgit v1.2.3