-- | The above packaged as a 'logHook'.  (Currently this is identical.)
debugStackLogHook :: X ()
debugStackLogHook =  debugStack
debugStackLogHook :: X ()
debugStackLogHook =  debugStack
debugStackLogHook =  debugStack