diff options
| -rw-r--r-- | XMonad/Hooks/DebugEvents.hs | 15 |
1 files changed, 0 insertions, 15 deletions
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 |