From 4db554f471293564a62ececb6f15acdb815b154c Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 8 Dec 2007 00:51:16 +0100 Subject: Prune more imports darcs-hash:20071207235116-a5988-563cabf7a60a879beb0eb54c9e352a1c27b7729f.gz --- XMonad/Util/CustomKeys.hs | 2 -- XMonad/Util/EZConfig.hs | 1 - XMonad/Util/XSelection.hs | 11 +---------- 3 files changed, 1 insertion(+), 13 deletions(-) (limited to 'XMonad/Util') diff --git a/XMonad/Util/CustomKeys.hs b/XMonad/Util/CustomKeys.hs index 9d58f39..998f9bc 100644 --- a/XMonad/Util/CustomKeys.hs +++ b/XMonad/Util/CustomKeys.hs @@ -20,7 +20,6 @@ module XMonad.Util.CustomKeys ( import XMonad import Control.Monad.Reader -import Graphics.X11.Xlib import qualified Data.Map as M @@ -51,7 +50,6 @@ import qualified Data.Map as M -- entirely. No need to import "CustomKeys" this time: -- -- > import XMonad --- > import Graphics.X11.Xlib -- > import System.Exit -- > import qualified Data.Map as M -- > diff --git a/XMonad/Util/EZConfig.hs b/XMonad/Util/EZConfig.hs index 543f5a1..6c5f655 100644 --- a/XMonad/Util/EZConfig.hs +++ b/XMonad/Util/EZConfig.hs @@ -21,7 +21,6 @@ module XMonad.Util.EZConfig ( import XMonad import qualified Data.Map as M -import Graphics.X11.Xlib -- | -- Add or override keybindings from the existing set. Example use: diff --git a/XMonad/Util/XSelection.hs b/XMonad/Util/XSelection.hs index dd5e1a2..0ee1987 100644 --- a/XMonad/Util/XSelection.hs +++ b/XMonad/Util/XSelection.hs @@ -30,16 +30,7 @@ import Data.Bits (shiftL, (.&.), (.|.)) import Data.Char (chr, ord) import Data.Maybe (fromMaybe) import Data.Word (Word8) -import Graphics.X11.Xlib.Extras (Event(ev_event_display, - ev_time, ev_property, ev_target, ev_selection, - ev_requestor, ev_event_type), - xConvertSelection, xGetSelectionOwner, xSetSelectionOwner, getEvent, - currentTime, setSelectionNotify, getWindowProperty8, changeProperty8, - propModeReplace) -import Graphics.X11.Xlib (destroyWindow, createSimpleWindow, Display, XEventPtr, - sendEvent, nextEvent, sync, allocaXEvent, openDisplay, rootWindow, - defaultScreen, internAtom, Atom, selectionNotify, selectionRequest, noEventMask) -import XMonad (X, io) +import XMonad import XMonad.Util.Run (safeSpawn, unsafeSpawn) {- $usage -- cgit v1.2.3