Remove redundant imports

darcs-hash:20071207233827-a5988-9e41d51120499637f14d115f2cf1428edaf326bb.gz

17 files changed, 3 insertions, 37 deletions

diff --git a/XMonad/Layout/Circle.hs b/XMonad/Layout/Circle.hs
index c37873c..d2cf26f 100644
--- a/XMonad/Layout/Circle.hs
+++ b/XMonad/Layout/Circle.hs
@@ -21,7 +21,6 @@ module XMonad.Layout.Circle (
                             ) where -- actually it's an ellipse
 
 import Data.List
-import Graphics.X11.Xlib
 import XMonad
 import XMonad.StackSet (integrate, peek)
 
diff --git a/XMonad/Layout/DragPane.hs b/XMonad/Layout/DragPane.hs
index d02cd65..07d90f2 100644
--- a/XMonad/Layout/DragPane.hs
+++ b/XMonad/Layout/DragPane.hs
@@ -28,8 +28,6 @@ module XMonad.Layout.DragPane (
                               , DragPane, DragType (..)
                               ) where
 
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
 import XMonad
 import Data.Bits
 import Data.Unique
diff --git a/XMonad/Layout/HintedTile.hs b/XMonad/Layout/HintedTile.hs
index b05f9e6..a3a81d7 100644
--- a/XMonad/Layout/HintedTile.hs
+++ b/XMonad/Layout/HintedTile.hs
@@ -27,7 +27,7 @@ import qualified XMonad.StackSet as W
 import Graphics.X11.Xlib
 import Graphics.X11.Xlib.Extras
 import Control.Applicative ((<$>))
-import Control.Monad.Reader
+import Control.Monad
 
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
diff --git a/XMonad/Layout/LayoutHints.hs b/XMonad/Layout/LayoutHints.hs
index 67e3e57..1639873 100644
--- a/XMonad/Layout/LayoutHints.hs
+++ b/XMonad/Layout/LayoutHints.hs
@@ -20,11 +20,8 @@ module XMonad.Layout.LayoutHints (
     LayoutHints) where
 
 import XMonad.Operations ( applySizeHints, D )
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras ( getWMNormalHints )
 import XMonad hiding ( trace )
 import XMonad.Layout.LayoutModifier
-import Control.Monad.Reader ( asks )
 
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
diff --git a/XMonad/Layout/LayoutModifier.hs b/XMonad/Layout/LayoutModifier.hs
index 15b0619..da0fad2 100644
--- a/XMonad/Layout/LayoutModifier.hs
+++ b/XMonad/Layout/LayoutModifier.hs
@@ -20,7 +20,6 @@ module XMonad.Layout.LayoutModifier (
     LayoutModifier(..), ModifiedLayout(..)
     ) where
 
-import Graphics.X11.Xlib ( Rectangle )
 import XMonad
 import XMonad.StackSet ( Stack )
 
diff --git a/XMonad/Layout/LayoutScreens.hs b/XMonad/Layout/LayoutScreens.hs
index deefbae..73b29af 100644
--- a/XMonad/Layout/LayoutScreens.hs
+++ b/XMonad/Layout/LayoutScreens.hs
@@ -18,13 +18,9 @@ module XMonad.Layout.LayoutScreens (
                                     layoutScreens, fixedLayout
                                    ) where
 
-import Control.Monad.Reader ( asks )
-
 import XMonad
 import qualified XMonad.StackSet as W
 import qualified XMonad.Operations as O
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
 
 -- $usage
 -- This module allows you to pretend that you have more than one screen by
diff --git a/XMonad/Layout/MagicFocus.hs b/XMonad/Layout/MagicFocus.hs
index 1d2ccee..2a69df5 100644
--- a/XMonad/Layout/MagicFocus.hs
+++ b/XMonad/Layout/MagicFocus.hs
@@ -19,7 +19,6 @@ module XMonad.Layout.MagicFocus
      MagicFocus(MagicFocus)
     ) where
 
-import Graphics.X11.Xlib
 import XMonad
 import XMonad.StackSet
 
diff --git a/XMonad/Layout/Magnifier.hs b/XMonad/Layout/Magnifier.hs
index 8ac5213..ebe74de 100644
--- a/XMonad/Layout/Magnifier.hs
+++ b/XMonad/Layout/Magnifier.hs
@@ -25,7 +25,6 @@ module XMonad.Layout.Magnifier
       MagnifyMsg (..)
     ) where
 
-import Graphics.X11.Xlib (Window, Rectangle(..))
 import XMonad
 import XMonad.StackSet
 import XMonad.Layout.LayoutModifier
diff --git a/XMonad/Layout/Maximize.hs b/XMonad/Layout/Maximize.hs
index 7eb6e8b..28d17a2 100644
--- a/XMonad/Layout/Maximize.hs
+++ b/XMonad/Layout/Maximize.hs
@@ -23,7 +23,6 @@ module XMonad.Layout.Maximize (
         maximizeRestore
     ) where
 
-import Graphics.X11.Xlib
 import XMonad
 import XMonad.Layout.LayoutModifier
 import Data.List ( partition )
diff --git a/XMonad/Layout/Mosaic.hs b/XMonad/Layout/Mosaic.hs
index 5dcd334..71d38ac 100644
--- a/XMonad/Layout/Mosaic.hs
+++ b/XMonad/Layout/Mosaic.hs
@@ -26,8 +26,6 @@ import Control.Monad.State ( State, put, get, runState )
 import System.Random ( StdGen, mkStdGen )
 import Data.Maybe ( isJust )
 
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras ( SizeHints, getWMNormalHints, sh_aspect, sh_min_size, sh_max_size )
 import XMonad hiding ( trace )
 import XMonad.Layouts ( Resize(Shrink, Expand) )
 import qualified XMonad.StackSet as W
diff --git a/XMonad/Layout/NoBorders.hs b/XMonad/Layout/NoBorders.hs
index 25ae380..6b022ed 100644
--- a/XMonad/Layout/NoBorders.hs
+++ b/XMonad/Layout/NoBorders.hs
@@ -25,10 +25,6 @@ module XMonad.Layout.NoBorders (
                                 withBorder
                                ) where
 
-import Control.Monad.State (gets)
-import Control.Monad.Reader (asks)
-import Graphics.X11.Xlib
-
 import XMonad
 import XMonad.Layout.LayoutModifier
 import qualified XMonad.StackSet as W
diff --git a/XMonad/Layout/PerWorkspace.hs b/XMonad/Layout/PerWorkspace.hs
index ce63af9..25de2c8 100644
--- a/XMonad/Layout/PerWorkspace.hs
+++ b/XMonad/Layout/PerWorkspace.hs
@@ -24,7 +24,6 @@ module XMonad.Layout.PerWorkspace (
 import XMonad
 import qualified XMonad.StackSet as W
 
-import Control.Monad.State (gets)
 import Data.Maybe (fromMaybe)
 
 -- $usage
diff --git a/XMonad/Layout/ResizableTile.hs b/XMonad/Layout/ResizableTile.hs
index 97b4504..ca73a7c 100644
--- a/XMonad/Layout/ResizableTile.hs
+++ b/XMonad/Layout/ResizableTile.hs
@@ -25,7 +25,6 @@ import XMonad
 import XMonad.Layouts (Resize(..), IncMasterN(..))
 import qualified XMonad.StackSet as W
 import Graphics.X11.Xlib
-import Control.Monad.State
 import Control.Monad
 
 -- $usage
diff --git a/XMonad/Layout/Spiral.hs b/XMonad/Layout/Spiral.hs
index b4b3b8a..f341d08 100644
--- a/XMonad/Layout/Spiral.hs
+++ b/XMonad/Layout/Spiral.hs
@@ -23,7 +23,6 @@ module XMonad.Layout.Spiral (
                             , Direction (..)
                             ) where
 
-import Graphics.X11.Xlib
 import Data.Ratio
 import XMonad
 import XMonad.Layouts
diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs
index 1ddf214..a3c6ac2 100644
--- a/XMonad/Layout/Tabbed.hs
+++ b/XMonad/Layout/Tabbed.hs
@@ -22,14 +22,9 @@ module XMonad.Layout.Tabbed (
                             , Shrinker(..)
                             ) where
 
-import Control.Monad.State ( gets )
-import Control.Monad.Reader
 import Data.Maybe
 import Data.List
 
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
-
 import XMonad
 import XMonad.Operations
 import qualified XMonad.StackSet as W
diff --git a/XMonad/Layout/ThreeColumns.hs b/XMonad/Layout/ThreeColumns.hs
index 0612c3d..494f338 100644
--- a/XMonad/Layout/ThreeColumns.hs
+++ b/XMonad/Layout/ThreeColumns.hs
@@ -26,10 +26,7 @@ import XMonad.Layouts ( Resize(..), IncMasterN(..), splitVertically, splitHorizo
 
 import Data.Ratio
 
---import Control.Monad.State
-import Control.Monad.Reader
-
-import Graphics.X11.Xlib
+import Control.Monad
 
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
diff --git a/XMonad/Layout/WindowNavigation.hs b/XMonad/Layout/WindowNavigation.hs
index a826798..78592b7 100644
--- a/XMonad/Layout/WindowNavigation.hs
+++ b/XMonad/Layout/WindowNavigation.hs
@@ -25,11 +25,8 @@ module XMonad.Layout.WindowNavigation (
                                    noNavigateBorders, defaultWNConfig
                                   ) where
 
-import Graphics.X11.Xlib ( Rectangle(..), Window, Pixel, setWindowBorder )
-import Control.Monad.Reader ( ask )
-import Control.Monad.State ( gets, modify )
 import Data.List ( nub, sortBy, (\\) )
-import XMonad
+import XMonad hiding (Point)
 import qualified XMonad.StackSet as W
 import XMonad.Operations ( windows )
 import XMonad.Layout.LayoutModifier