debug: trace Yesod.Core.Internal.Run.safeEh with call stack

2023-04-19 14:00:04 +00:00 · 2023-04-19 14:00:04 +00:00 · 7acff8dce2
commit 7acff8dce2
parent cb75192e0c
1 changed files with 3 additions and 0 deletions
--- a/yesod-core/src/Yesod/Core/Internal/Run.hs
+++ b/yesod-core/src/Yesod/Core/Internal/Run.hs
@ -207,6 +207,9 @@ safeEh :: (Loc -> LogSource -> LogLevel -> LogStr -> IO ())
       -> ErrorResponse
       -> YesodApp
 safeEh log' er req = do
+    traceStack "safeEh debug trace, log':" log'
+    traceStack "safeEh debug trace, er:" er
+    traceStack "safeEh debug trace, req:" req
    liftIO $ log' $(qLocation >>= liftLoc) "yesod-core" LevelError
           $ toLogStr $ "Error handler errored out: " ++ show er
    return $ YRPlain