xmonad-contrib-0.11-getAtomName.patch

diff -ur xmonad-contrib-0.11.orig/XMonad/Hooks/DebugEvents.hs xmonad-contrib-0.11/XMonad/Hooks/DebugEvents.hs
--- xmonad-contrib-0.11.orig/XMonad/Hooks/DebugEvents.hs	2013-02-27 00:30:37.840686030 +0900
+++ xmonad-contrib-0.11/XMonad/Hooks/DebugEvents.hs	2013-02-27 00:48:45.208871862 +0900
@@ -42,13 +42,15 @@
 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
 
+#if !MIN_VERSION_X11(1, 6, 1)
+import           Foreign.C.String
+
 -- this should move into X11
 foreign import ccall unsafe "XGetAtomName"
   xGetAtomName :: Display -> Atom -> IO CString
@@ -62,6 +64,7 @@
       n' <- peekCString n
       xFree n
       return $ Just n'
+#endif
 
 -- | Event hook to dump all received events.  You should probably not use this
 --   unconditionally; it will produce massive amounts of output.