Uncaught Exceptions

gistfile1.hs

-- | when no catch frame handles an exception dump core and terminate the process
uncaughtExceptionHandler :: SomeException -> IO () 
{-# NOINLINE uncaughtExceptionHandler #-}
uncaughtExceptionHandler !e = do
  syslog Error $ "Unhandled exception: " ++ show e
  raiseSignal sigABRT

setDefaultUncaughtExceptionHandler :: IO ()
setDefaultUncaughtExceptionHandler =
  setUncaughtExceptionHandler uncaughtExceptionHandler