handle atom 0

geekosaur · May 31, 2024 · 3478534 · 3478534
1 parent c21f9e6
commit 3478534
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/XMonad/Hooks/DebugEvents.hs b/XMonad/Hooks/DebugEvents.hs
@@ -192,6 +192,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