aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Actions/CopyWindow.hs1
-rw-r--r--XMonad/Actions/DynamicWorkspaceOrder.hs1
-rw-r--r--XMonad/Actions/MouseResize.hs4
-rw-r--r--XMonad/Actions/OnScreen.hs1
-rw-r--r--XMonad/Actions/PhysicalScreens.hs1
-rw-r--r--XMonad/Actions/SwapWorkspaces.hs1
-rw-r--r--XMonad/Actions/TagWindows.hs2
-rw-r--r--XMonad/Actions/TopicSpace.hs3
-rw-r--r--XMonad/Actions/UpdateFocus.hs1
-rw-r--r--XMonad/Actions/Warp.hs1
-rw-r--r--XMonad/Actions/WindowNavigation.hs1
-rw-r--r--XMonad/Actions/WithAll.hs2
-rw-r--r--XMonad/Config/Bluetile.hs1
-rw-r--r--XMonad/Config/Desktop.hs1
-rw-r--r--XMonad/Config/Droundy.hs1
-rw-r--r--XMonad/Config/Sjanssen.hs1
-rw-r--r--XMonad/Hooks/ManageDocks.hs1
-rw-r--r--XMonad/Hooks/Place.hs2
-rw-r--r--XMonad/Hooks/Script.hs1
-rw-r--r--XMonad/Hooks/ServerMode.hs1
-rw-r--r--XMonad/Hooks/XPropManage.hs2
-rw-r--r--XMonad/Layout/ComboP.hs2
-rw-r--r--XMonad/Layout/DecorationAddons.hs1
-rw-r--r--XMonad/Layout/DecorationMadness.hs1
-rw-r--r--XMonad/Layout/Dishes.hs1
-rw-r--r--XMonad/Layout/IM.hs2
-rw-r--r--XMonad/Layout/IndependentScreens.hs1
-rw-r--r--XMonad/Layout/LayoutBuilder.hs3
-rw-r--r--XMonad/Layout/LayoutHints.hs2
-rw-r--r--XMonad/Layout/LimitWindows.hs1
-rw-r--r--XMonad/Layout/NoBorders.hs1
-rw-r--r--XMonad/Layout/SubLayouts.hs11
-rw-r--r--XMonad/Layout/Tabbed.hs1
-rw-r--r--XMonad/Layout/WindowArranger.hs1
-rw-r--r--XMonad/Prompt/RunOrRaise.hs1
-rw-r--r--XMonad/Prompt/Shell.hs1
-rw-r--r--XMonad/Prompt/Ssh.hs1
-rw-r--r--XMonad/Prompt/Theme.hs1
-rw-r--r--XMonad/Util/Dzen.hs1
-rw-r--r--XMonad/Util/NamedActions.hs7
-rw-r--r--XMonad/Util/NamedScratchpad.hs4
-rw-r--r--XMonad/Util/Paste.hs1
-rw-r--r--XMonad/Util/PositionStore.hs3
-rw-r--r--XMonad/Util/Scratchpad.hs1
-rw-r--r--XMonad/Util/XSelection.hs2
-rw-r--r--xmonad-contrib.cabal8
46 files changed, 20 insertions, 69 deletions
diff --git a/XMonad/Actions/CopyWindow.hs b/XMonad/Actions/CopyWindow.hs
index f30de69..49fa30c 100644
--- a/XMonad/Actions/CopyWindow.hs
+++ b/XMonad/Actions/CopyWindow.hs
@@ -26,7 +26,6 @@ module XMonad.Actions.CopyWindow (
import XMonad
import Control.Arrow ((&&&))
-import Control.Monad
import qualified Data.List as L
import XMonad.Actions.WindowGo
diff --git a/XMonad/Actions/DynamicWorkspaceOrder.hs b/XMonad/Actions/DynamicWorkspaceOrder.hs
index af46016..04ddcf5 100644
--- a/XMonad/Actions/DynamicWorkspaceOrder.hs
+++ b/XMonad/Actions/DynamicWorkspaceOrder.hs
@@ -41,7 +41,6 @@ import qualified Data.Map as M
import qualified Data.Set as S
import Data.Maybe (fromJust, fromMaybe)
import Data.Ord (comparing)
-import Data.Typeable
-- $usage
-- You can use this module by importing it into your ~\/.xmonad\/xmonad.hs file:
diff --git a/XMonad/Actions/MouseResize.hs b/XMonad/Actions/MouseResize.hs
index 0716c58..5441644 100644
--- a/XMonad/Actions/MouseResize.hs
+++ b/XMonad/Actions/MouseResize.hs
@@ -23,12 +23,8 @@ module XMonad.Actions.MouseResize
, MouseResize (..)
) where
-import Control.Monad
-import Data.Maybe
-
import XMonad
import XMonad.Layout.Decoration
-import XMonad.Layout.LayoutModifier
import XMonad.Layout.WindowArranger
import XMonad.Util.XUtils
diff --git a/XMonad/Actions/OnScreen.hs b/XMonad/Actions/OnScreen.hs
index 95bdec7..6786766 100644
--- a/XMonad/Actions/OnScreen.hs
+++ b/XMonad/Actions/OnScreen.hs
@@ -26,7 +26,6 @@ module XMonad.Actions.OnScreen (
) where
import XMonad
-import XMonad.Core
import XMonad.StackSet hiding (new)
import Control.Monad (guard)
diff --git a/XMonad/Actions/PhysicalScreens.hs b/XMonad/Actions/PhysicalScreens.hs
index 8e2919c..84b4e32 100644
--- a/XMonad/Actions/PhysicalScreens.hs
+++ b/XMonad/Actions/PhysicalScreens.hs
@@ -24,7 +24,6 @@ module XMonad.Actions.PhysicalScreens (
import XMonad
import qualified XMonad.StackSet as W
-import qualified Graphics.X11.Xlib as X
import Graphics.X11.Xinerama
import Data.List (sortBy)
diff --git a/XMonad/Actions/SwapWorkspaces.hs b/XMonad/Actions/SwapWorkspaces.hs
index 67cf425..a5890fd 100644
--- a/XMonad/Actions/SwapWorkspaces.hs
+++ b/XMonad/Actions/SwapWorkspaces.hs
@@ -25,7 +25,6 @@ module XMonad.Actions.SwapWorkspaces (
import XMonad (windows, X())
import XMonad.StackSet
import XMonad.Actions.CycleWS
-import XMonad.Util.Types
import XMonad.Util.WorkspaceCompare
diff --git a/XMonad/Actions/TagWindows.hs b/XMonad/Actions/TagWindows.hs
index fc89bd8..d972aa4 100644
--- a/XMonad/Actions/TagWindows.hs
+++ b/XMonad/Actions/TagWindows.hs
@@ -25,7 +25,7 @@ module XMonad.Actions.TagWindows (
tagDelPrompt
) where
-import Data.List (nub,concat,sortBy)
+import Data.List (nub,sortBy)
import Control.Monad
import XMonad.StackSet hiding (filter)
diff --git a/XMonad/Actions/TopicSpace.hs b/XMonad/Actions/TopicSpace.hs
index de0fb3c..e196fdf 100644
--- a/XMonad/Actions/TopicSpace.hs
+++ b/XMonad/Actions/TopicSpace.hs
@@ -44,10 +44,9 @@ import Data.List
import Data.Maybe (fromMaybe, isNothing, listToMaybe)
import Data.Ord
import qualified Data.Map as M
-import Control.Monad ((=<<),liftM2,when,unless,replicateM_)
+import Control.Monad (liftM2,when,unless,replicateM_)
import System.IO
-import XMonad.Operations
import qualified XMonad.StackSet as W
import XMonad.Prompt
diff --git a/XMonad/Actions/UpdateFocus.hs b/XMonad/Actions/UpdateFocus.hs
index c92d66c..ab2e2b1 100644
--- a/XMonad/Actions/UpdateFocus.hs
+++ b/XMonad/Actions/UpdateFocus.hs
@@ -21,7 +21,6 @@ module XMonad.Actions.UpdateFocus (
import XMonad
import qualified XMonad.StackSet as W
-import Graphics.X11.Xlib.Extras
import Control.Monad (when)
import Data.Monoid
diff --git a/XMonad/Actions/Warp.hs b/XMonad/Actions/Warp.hs
index 4c5faf3..03afbdf 100644
--- a/XMonad/Actions/Warp.hs
+++ b/XMonad/Actions/Warp.hs
@@ -22,7 +22,6 @@ module XMonad.Actions.Warp (
warpToWindow
) where
-import Data.Ratio
import Data.List
import XMonad
import XMonad.StackSet as W
diff --git a/XMonad/Actions/WindowNavigation.hs b/XMonad/Actions/WindowNavigation.hs
index 6b721ec..c8b4deb 100644
--- a/XMonad/Actions/WindowNavigation.hs
+++ b/XMonad/Actions/WindowNavigation.hs
@@ -52,7 +52,6 @@ import qualified Data.Map as M
import Data.Maybe (catMaybes, fromMaybe, listToMaybe)
import Data.Ord (comparing)
import qualified Data.Set as S
-import Graphics.X11.Xlib
-- $usage
--
diff --git a/XMonad/Actions/WithAll.hs b/XMonad/Actions/WithAll.hs
index ffd046a..fa2c30d 100644
--- a/XMonad/Actions/WithAll.hs
+++ b/XMonad/Actions/WithAll.hs
@@ -18,8 +18,6 @@ module XMonad.Actions.WithAll (
import Data.Foldable hiding (foldr)
import XMonad
-import XMonad.Core
-import XMonad.Operations
import XMonad.StackSet
-- $usage
diff --git a/XMonad/Config/Bluetile.hs b/XMonad/Config/Bluetile.hs
index 264e997..7a0a116 100644
--- a/XMonad/Config/Bluetile.hs
+++ b/XMonad/Config/Bluetile.hs
@@ -26,7 +26,6 @@ module XMonad.Config.Bluetile (
import XMonad hiding ( (|||) )
-import XMonad.Layout hiding ( (|||) )
import XMonad.Layout.BorderResize
import XMonad.Layout.BoringWindows
import XMonad.Layout.ButtonDecoration
diff --git a/XMonad/Config/Desktop.hs b/XMonad/Config/Desktop.hs
index af00f8b..0084306 100644
--- a/XMonad/Config/Desktop.hs
+++ b/XMonad/Config/Desktop.hs
@@ -54,7 +54,6 @@ module XMonad.Config.Desktop (
) where
import XMonad
-import XMonad.Config (defaultConfig)
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Util.Cursor
diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs
index 067c8e7..51356dc 100644
--- a/XMonad/Config/Droundy.hs
+++ b/XMonad/Config/Droundy.hs
@@ -10,7 +10,6 @@ module XMonad.Config.Droundy ( config, mytab ) where
import XMonad hiding (keys, config, (|||))
import qualified XMonad (keys)
-import XMonad.Config ( defaultConfig )
import qualified XMonad.StackSet as W
import qualified Data.Map as M
diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs
index 539a4c0..d941c59 100644
--- a/XMonad/Config/Sjanssen.hs
+++ b/XMonad/Config/Sjanssen.hs
@@ -6,7 +6,6 @@ import qualified XMonad.StackSet as W
import XMonad.Actions.CopyWindow
import XMonad.Layout.Tabbed
import XMonad.Layout.HintedTile
-import XMonad.Config (defaultConfig)
import XMonad.Layout.NoBorders
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs
index fff4a5c..084b02c 100644
--- a/XMonad/Hooks/ManageDocks.hs
+++ b/XMonad/Hooks/ManageDocks.hs
@@ -30,7 +30,6 @@ module XMonad.Hooks.ManageDocks (
-----------------------------------------------------------------------------
import XMonad
import Foreign.C.Types (CLong)
-import Control.Monad
import XMonad.Layout.LayoutModifier
import XMonad.Util.Types
import XMonad.Util.WindowProperties (getProp32s)
diff --git a/XMonad/Hooks/Place.hs b/XMonad/Hooks/Place.hs
index 3c04b25..5faa0b7 100644
--- a/XMonad/Hooks/Place.hs
+++ b/XMonad/Hooks/Place.hs
@@ -42,7 +42,7 @@ import XMonad.Actions.FloatKeys
import qualified Data.Map as M
import Data.Ratio ((%))
import Data.List (sortBy, minimumBy, partition)
-import Data.Maybe (maybe, fromMaybe, catMaybes)
+import Data.Maybe (fromMaybe, catMaybes)
import Data.Monoid (Endo(..))
import Control.Monad (guard, join)
import Control.Monad.Trans (lift)
diff --git a/XMonad/Hooks/Script.hs b/XMonad/Hooks/Script.hs
index ef6bc10..8c6a486 100644
--- a/XMonad/Hooks/Script.hs
+++ b/XMonad/Hooks/Script.hs
@@ -26,7 +26,6 @@ module XMonad.Hooks.Script (
--
import XMonad
-import Control.Monad.Trans
import System.Directory
-- $usage
diff --git a/XMonad/Hooks/ServerMode.hs b/XMonad/Hooks/ServerMode.hs
index db70c6b..c072f53 100644
--- a/XMonad/Hooks/ServerMode.hs
+++ b/XMonad/Hooks/ServerMode.hs
@@ -64,7 +64,6 @@ module XMonad.Hooks.ServerMode
) where
import Control.Monad (when)
-import Data.List
import Data.Monoid
import System.IO
diff --git a/XMonad/Hooks/XPropManage.hs b/XMonad/Hooks/XPropManage.hs
index 50678a5..e623aa8 100644
--- a/XMonad/Hooks/XPropManage.hs
+++ b/XMonad/Hooks/XPropManage.hs
@@ -18,13 +18,11 @@ module XMonad.Hooks.XPropManage (
) where
import Data.Char (chr)
-import Data.List (concat)
import Data.Monoid (mconcat, Endo(..))
import Control.Monad.Trans (lift)
import XMonad
-import XMonad.ManageHook ((-->))
-- $usage
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
diff --git a/XMonad/Layout/ComboP.hs b/XMonad/Layout/ComboP.hs
index 9218d86..48a5fc9 100644
--- a/XMonad/Layout/ComboP.hs
+++ b/XMonad/Layout/ComboP.hs
@@ -27,7 +27,7 @@ import Data.List ( delete, intersect, (\\) )
import Data.Maybe ( isJust )
import Control.Monad
import XMonad hiding (focus)
-import XMonad.StackSet ( integrate, Workspace (..), Stack(..) )
+import XMonad.StackSet ( Workspace (..), Stack(..) )
import XMonad.Layout.WindowNavigation
import XMonad.Util.WindowProperties
import qualified XMonad.StackSet as W
diff --git a/XMonad/Layout/DecorationAddons.hs b/XMonad/Layout/DecorationAddons.hs
index 28b8eb9..798a289 100644
--- a/XMonad/Layout/DecorationAddons.hs
+++ b/XMonad/Layout/DecorationAddons.hs
@@ -29,7 +29,6 @@ import XMonad.Layout.Maximize
import XMonad.Hooks.ManageDocks
import XMonad.Util.Font
import XMonad.Util.PositionStore
-import XMonad.Util.XUtils (fi)
import Control.Applicative((<$>))
import Data.Maybe
diff --git a/XMonad/Layout/DecorationMadness.hs b/XMonad/Layout/DecorationMadness.hs
index d428f89..0ad373b 100644
--- a/XMonad/Layout/DecorationMadness.hs
+++ b/XMonad/Layout/DecorationMadness.hs
@@ -94,7 +94,6 @@ import XMonad.Layout.TabBarDecoration
import XMonad.Layout.Accordion
import XMonad.Layout.Circle
-import XMonad.Layout.ResizeScreen
import XMonad.Layout.WindowArranger
import XMonad.Layout.SimpleFloat
diff --git a/XMonad/Layout/Dishes.hs b/XMonad/Layout/Dishes.hs
index 821f0df..89723b5 100644
--- a/XMonad/Layout/Dishes.hs
+++ b/XMonad/Layout/Dishes.hs
@@ -21,7 +21,6 @@ module XMonad.Layout.Dishes (
Dishes (..)
) where
-import Data.List
import XMonad
import XMonad.StackSet (integrate)
import Control.Monad (ap)
diff --git a/XMonad/Layout/IM.hs b/XMonad/Layout/IM.hs
index a88d8ef..d21baa2 100644
--- a/XMonad/Layout/IM.hs
+++ b/XMonad/Layout/IM.hs
@@ -29,8 +29,6 @@ module XMonad.Layout.IM (
import XMonad
import qualified XMonad.StackSet as S
-import Data.List
-import XMonad.Layout (splitHorizontallyBy)
import XMonad.Layout.Grid
import XMonad.Layout.LayoutModifier
import XMonad.Util.WindowProperties
diff --git a/XMonad/Layout/IndependentScreens.hs b/XMonad/Layout/IndependentScreens.hs
index 4992a5f..b1ec055 100644
--- a/XMonad/Layout/IndependentScreens.hs
+++ b/XMonad/Layout/IndependentScreens.hs
@@ -26,7 +26,6 @@ module XMonad.Layout.IndependentScreens (
-- for the screen stuff
import Control.Arrow hiding ((|||))
import Control.Monad
-import Control.Monad.Instances
import Data.List
import Graphics.X11.Xinerama
import XMonad
diff --git a/XMonad/Layout/LayoutBuilder.hs b/XMonad/Layout/LayoutBuilder.hs
index 7b21087..434dc0a 100644
--- a/XMonad/Layout/LayoutBuilder.hs
+++ b/XMonad/Layout/LayoutBuilder.hs
@@ -28,11 +28,8 @@ module XMonad.Layout.LayoutBuilder (
) where
import XMonad
-import XMonad.Layout
import qualified XMonad.StackSet as W
-import Graphics.X11.Xlib
import Data.Maybe (isJust)
-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 d3859b1..ee3de7f 100644
--- a/XMonad/Layout/LayoutHints.hs
+++ b/XMonad/Layout/LayoutHints.hs
@@ -32,7 +32,7 @@ import XMonad.Layout.LayoutModifier(ModifiedLayout(..),
import XMonad.Util.Types(Direction2D(..))
import Control.Applicative((<$>))
import Control.Arrow(Arrow((***), first, second))
-import Control.Monad(Monad(return), mapM, join)
+import Control.Monad(join)
import Data.Function(on)
import Data.List(sortBy)
diff --git a/XMonad/Layout/LimitWindows.hs b/XMonad/Layout/LimitWindows.hs
index 1b66c93..23d7690 100644
--- a/XMonad/Layout/LimitWindows.hs
+++ b/XMonad/Layout/LimitWindows.hs
@@ -29,7 +29,6 @@ module XMonad.Layout.LimitWindows (
import XMonad.Layout.LayoutModifier
import XMonad
import qualified XMonad.StackSet as W
-import XMonad.Layout (IncMasterN (..))
import Control.Monad((<=<),guard)
import Control.Applicative((<$>))
import Data.Maybe(fromJust)
diff --git a/XMonad/Layout/NoBorders.hs b/XMonad/Layout/NoBorders.hs
index 4a5ff5a..d67d3ea 100644
--- a/XMonad/Layout/NoBorders.hs
+++ b/XMonad/Layout/NoBorders.hs
@@ -33,7 +33,6 @@ module XMonad.Layout.NoBorders (
import XMonad
import XMonad.Layout.LayoutModifier
import qualified XMonad.StackSet as W
-import Control.Monad
import Data.List
import qualified Data.Map as M
import Data.Function (on)
diff --git a/XMonad/Layout/SubLayouts.hs b/XMonad/Layout/SubLayouts.hs
index 53e7e8f..20aadee 100644
--- a/XMonad/Layout/SubLayouts.hs
+++ b/XMonad/Layout/SubLayouts.hs
@@ -51,13 +51,10 @@ import XMonad.Util.Types(Direction2D(..))
import XMonad
import Control.Applicative((<$>),(<*))
import Control.Arrow(Arrow(second, (&&&)))
-import Control.Monad(Monad(return), Functor(..),
- MonadPlus(mplus), (=<<), sequence, foldM, guard, when, join)
-import Data.Function((.), ($), flip, id, on)
-import Data.List((++), foldr, filter, map, concatMap, elem,
- notElem, null, nubBy, (\\), find)
-import Data.Maybe(Maybe(..), isNothing, maybe, fromMaybe, listToMaybe,
- mapMaybe)
+import Control.Monad(MonadPlus(mplus), foldM, guard, when, join)
+import Data.Function(on)
+import Data.List(nubBy, (\\), find)
+import Data.Maybe(isNothing, fromMaybe, listToMaybe, mapMaybe)
import Data.Traversable(sequenceA)
import qualified XMonad.Layout.BoringWindows as B
diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs
index fce93d0..9a486b1 100644
--- a/XMonad/Layout/Tabbed.hs
+++ b/XMonad/Layout/Tabbed.hs
@@ -28,7 +28,6 @@ module XMonad.Layout.Tabbed
, Shrinker(..)
) where
-import Data.Maybe
import Data.List
import XMonad
diff --git a/XMonad/Layout/WindowArranger.hs b/XMonad/Layout/WindowArranger.hs
index 43ccb0a..a74e7d3 100644
--- a/XMonad/Layout/WindowArranger.hs
+++ b/XMonad/Layout/WindowArranger.hs
@@ -32,7 +32,6 @@ import XMonad.Util.XUtils (fi)
import Control.Arrow
import Data.List
-import Data.Maybe
-- $usage
-- You can use this module with the following in your
diff --git a/XMonad/Prompt/RunOrRaise.hs b/XMonad/Prompt/RunOrRaise.hs
index 8ffb788..5fcfb3a 100644
--- a/XMonad/Prompt/RunOrRaise.hs
+++ b/XMonad/Prompt/RunOrRaise.hs
@@ -26,7 +26,6 @@ import XMonad.Actions.WindowGo (runOrRaise)
import XMonad.Util.Run (runProcessWithInput)
import Control.Monad (liftM, liftM2)
-import Data.Maybe
import System.Directory (doesDirectoryExist, doesFileExist, executable, getPermissions)
{- $usage
diff --git a/XMonad/Prompt/Shell.hs b/XMonad/Prompt/Shell.hs
index b7da249..0232463 100644
--- a/XMonad/Prompt/Shell.hs
+++ b/XMonad/Prompt/Shell.hs
@@ -30,7 +30,6 @@ import System.Environment
import Control.Monad
import Data.List
import System.Directory
-import System.IO
import System.Posix.Files
import XMonad.Util.Run
import XMonad hiding (config)
diff --git a/XMonad/Prompt/Ssh.hs b/XMonad/Prompt/Ssh.hs
index 677bb87..22d6336 100644
--- a/XMonad/Prompt/Ssh.hs
+++ b/XMonad/Prompt/Ssh.hs
@@ -26,7 +26,6 @@ import System.Directory
import System.Environment
import Control.Monad
-import Data.List
import Data.Maybe
-- $usage
diff --git a/XMonad/Prompt/Theme.hs b/XMonad/Prompt/Theme.hs
index e67862e..653b16c 100644
--- a/XMonad/Prompt/Theme.hs
+++ b/XMonad/Prompt/Theme.hs
@@ -20,7 +20,6 @@ module XMonad.Prompt.Theme
import Control.Arrow ( (&&&) )
import qualified Data.Map as M
import Data.Maybe ( fromMaybe )
-import Data.List
import XMonad
import XMonad.Prompt
import XMonad.Layout.Decoration
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)
diff --git a/xmonad-contrib.cabal b/xmonad-contrib.cabal
index d96d03f..20d511c 100644
--- a/xmonad-contrib.cabal
+++ b/xmonad-contrib.cabal
@@ -50,12 +50,18 @@ library
cpp-options: -DXFT
build-depends: mtl, unix, X11>=1.5.0.0 && < 1.6, xmonad>=0.9.1, xmonad<0.10, utf8-string
- ghc-options: -fwarn-tabs -Wall
+
+ if true
+ ghc-options: -fwarn-tabs -Wall
+
extensions: ForeignFunctionInterface
if flag(testing)
ghc-options: -fwarn-tabs -Werror
+ if impl(ghc >= 6.12.1)
+ ghc-options: -fno-warn-warnings-deprecations -fno-warn-unused-do-bind
+
if impl (ghc == 6.10.1) && arch (x86_64)
ghc-options: -O0