From 659e54ee05edf40f19ed0ca26e0d1b70b0e815c1 Mon Sep 17 00:00:00 2001 From: Daniel Wagner Date: Mon, 25 Feb 2013 19:03:23 +0100 Subject: getAtomName is now defined in the X11 library Ignore-this: 3b9e17c234679e98752a47c37132ee4e darcs-hash:20130225180323-76d51-325c8a4f508e3e5932ca5955f8fb44dd55c8e3b8.gz --- XMonad/Hooks/DebugEvents.hs | 15 --------------- 1 file changed, 15 deletions(-) (limited to 'XMonad/Hooks') diff --git a/XMonad/Hooks/DebugEvents.hs b/XMonad/Hooks/DebugEvents.hs index 6256444..a038b6c 100644 --- a/XMonad/Hooks/DebugEvents.hs +++ b/XMonad/Hooks/DebugEvents.hs @@ -42,27 +42,12 @@ import Codec.Binary.UTF8.String import Data.Maybe (fromMaybe) import Data.Monoid import Foreign -import Foreign.C.String import Foreign.C.Types import Numeric (showHex) import System.Exit import System.IO import System.Process --- this should move into X11 -foreign import ccall unsafe "XGetAtomName" - xGetAtomName :: Display -> Atom -> IO CString - -getAtomName :: Display -> Atom -> IO (Maybe String) -getAtomName d a = do - n <- xGetAtomName d a - if n == nullPtr - then return Nothing - else do - n' <- peekCString n - xFree n - return $ Just n' - -- | Event hook to dump all received events. You should probably not use this -- unconditionally; it will produce massive amounts of output. debugEventsHook :: Event -> X All -- cgit v1.2.3