haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Sarah Vaupel 2023-04-19 14:00:04 +00:00
parent cb75192e0c
commit 7acff8dce2
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-core/src/Yesod/Core/Internal/Run.hs
View File

@ -207,6 +207,9 @@ safeEh :: (Loc -> LogSource -> LogLevel -> LogStr -> IO ())
-> ErrorResponse -> ErrorResponse
-> YesodApp -> YesodApp
safeEh log' er req = do 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 liftIO $ log' $(qLocation >>= liftLoc) "yesod-core" LevelError
$ toLogStr $ "Error handler errored out: " ++ show er $ toLogStr $ "Error handler errored out: " ++ show er
return $ YRPlain return $ YRPlain