From 2c20a30fcdf9ec8a6d329b04a20662558be52081 Mon Sep 17 00:00:00 2001 From: Lukas Mai Date: Tue, 6 Nov 2007 15:18:29 +0100 Subject: make Setup haddock work again darcs-hash:20071106141829-462cf-c1daa2d74d17a314c7b1f68f9952e8502e44628f.gz --- XMonad/Util/XSelection.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'XMonad/Util/XSelection.hs') diff --git a/XMonad/Util/XSelection.hs b/XMonad/Util/XSelection.hs index 00d6723..e701128 100644 --- a/XMonad/Util/XSelection.hs +++ b/XMonad/Util/XSelection.hs @@ -23,7 +23,7 @@ module XMonad.Util.XSelection ( safePromptSelection, putSelection) where -import Graphics.X11.Xlib.Extras (Graphics.X11.Xlib.Extras.Event(ev_event_display, +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, @@ -37,7 +37,8 @@ import Control.Exception as E (catch) import Control.Monad(Monad (return, (>>)), Functor(..), liftM, join) import Data.Char (chr, ord) import Data.Maybe (fromMaybe) -import Foreign(Word8, Data.Bits.Bits (shiftL, (.&.), (.|.))) +import Foreign (Word8) +import Data.Bits (shiftL, (.&.), (.|.)) import XMonad.Util.Run (safeSpawn, unsafeSpawn) import XMonad (X, io) -- cgit v1.2.3