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

debug: fix traceStack call

Browse Source
This commit is contained in:
Sarah Vaupel 2023-04-19 14:46:50 +00:00
parent fff180821c
commit aa671eb41f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -209,7 +209,7 @@ 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', er, req) $ liftIO traceStack "safeEh debug trace:" $ liftIO
$ log' $(qLocation >>= liftLoc) "yesod-core" LevelError $ log' $(qLocation >>= liftLoc) "yesod-core" LevelError
$ toLogStr $ "Error handler errored out: " ++ show er $ toLogStr $ "Error handler errored out: " ++ show er
return $ YRPlain return $ YRPlain