aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDaniel Wagner <daniel@wagner-home.com>2013-02-25 19:03:23 +0100
committerDaniel Wagner <daniel@wagner-home.com>2013-02-25 19:03:23 +0100
commit659e54ee05edf40f19ed0ca26e0d1b70b0e815c1 (patch)
tree77ce5e1f2ed480130b37527ddb590ae3fd03a54c /XMonad
parente41c1f20671f5ffd5375d43b9ebdce0d5bad5d74 (diff)
downloadXMonadContrib-659e54ee05edf40f19ed0ca26e0d1b70b0e815c1.tar.gz
XMonadContrib-659e54ee05edf40f19ed0ca26e0d1b70b0e815c1.tar.xz
XMonadContrib-659e54ee05edf40f19ed0ca26e0d1b70b0e815c1.zip
getAtomName is now defined in the X11 library
Ignore-this: 3b9e17c234679e98752a47c37132ee4e darcs-hash:20130225180323-76d51-325c8a4f508e3e5932ca5955f8fb44dd55c8e3b8.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Hooks/DebugEvents.hs15
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