From 6516064616b0b993a694cb4e8423a53c60a9b3c3 Mon Sep 17 00:00:00 2001 From: Brent Yorgey 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/Actions/CopyWindow.hs | 1 - XMonad/Actions/DynamicWorkspaceOrder.hs | 1 - XMonad/Actions/MouseResize.hs | 4 ---- XMonad/Actions/OnScreen.hs | 1 - XMonad/Actions/PhysicalScreens.hs | 1 - XMonad/Actions/SwapWorkspaces.hs | 1 - XMonad/Actions/TagWindows.hs | 2 +- XMonad/Actions/TopicSpace.hs | 3 +-- XMonad/Actions/UpdateFocus.hs | 1 - XMonad/Actions/Warp.hs | 1 - XMonad/Actions/WindowNavigation.hs | 1 - XMonad/Actions/WithAll.hs | 2 -- XMonad/Config/Bluetile.hs | 1 - XMonad/Config/Desktop.hs | 1 - XMonad/Config/Droundy.hs | 1 - XMonad/Config/Sjanssen.hs | 1 - XMonad/Hooks/ManageDocks.hs | 1 - XMonad/Hooks/Place.hs | 2 +- XMonad/Hooks/Script.hs | 1 - XMonad/Hooks/ServerMode.hs | 1 - XMonad/Hooks/XPropManage.hs | 2 -- XMonad/Layout/ComboP.hs | 2 +- XMonad/Layout/DecorationAddons.hs | 1 - XMonad/Layout/DecorationMadness.hs | 1 - XMonad/Layout/Dishes.hs | 1 - XMonad/Layout/IM.hs | 2 -- XMonad/Layout/IndependentScreens.hs | 1 - XMonad/Layout/LayoutBuilder.hs | 3 --- XMonad/Layout/LayoutHints.hs | 2 +- XMonad/Layout/LimitWindows.hs | 1 - XMonad/Layout/NoBorders.hs | 1 - XMonad/Layout/SubLayouts.hs | 11 ++++------- XMonad/Layout/Tabbed.hs | 1 - XMonad/Layout/WindowArranger.hs | 1 - XMonad/Prompt/RunOrRaise.hs | 1 - XMonad/Prompt/Shell.hs | 1 - XMonad/Prompt/Ssh.hs | 1 - XMonad/Prompt/Theme.hs | 1 - 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 +- 45 files changed, 13 insertions(+), 68 deletions(-) (limited to 'XMonad') 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) -- cgit v1.2.3