handle atom 0

geekosaur · May 31, 2024 · eb0d75e · eb0d75e
1 parent c21f9e6
commit eb0d75e
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/XMonad/Hooks/DebugEvents.hs b/XMonad/Hooks/DebugEvents.hs
@@ -31,8 +31,6 @@ import           XMonad.Prelude                       hiding (fi, bool)
 import           XMonad.Hooks.DebugKeyEvents                 (debugKeyEvents)
 import           XMonad.Util.DebugWindow                     (debugWindow)
 
--- import           Graphics.X11.Xlib.Extras.GetAtomName        (getAtomName)
-
 import           Control.Exception                    as E
 import           Control.Monad.Fail
 import           Control.Monad.State
@@ -192,6 +190,7 @@ debugEventsHook' _                      = return ()
 
 -- | Emit information about an atom.
 atomName   :: Atom -> X String
+atomName 0 =  return "-none-"
 atomName a =  withDisplay $ \d ->
   io $ fromMaybe ("(unknown atom " ++ show a ++ ")") <$> getAtomName d a