-- | The above packaged as a 'handleEventHook'.  You almost certainly do not
--   want to use this unconditionally, as it will cause massive amounts of
--   output and possibly slow @xmonad@ down severely.

debugStackEventHook   :: Event -> X All
debugStackEventHook _ =  debugStack >> return (All True)
debugStackEventHook   :: Event -> X All
debugStackEventHook _ =  debugStack >> return (All True)
debugStackEventHook _ =  debugStack >> return (All True)