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

debug: traceStack before liftIO

Browse Source
This commit is contained in:
Sarah Vaupel 2023-04-19 14:40:22 +00:00
parent 4b71808e48
commit fff180821c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -208,8 +208,9 @@ runHandler rhe@RunHandlerEnv {..} handler yreq = withInternalState $ \resState -
safeEh :: (Loc -> LogSource -> LogLevel -> LogStr -> IO ()) safeEh :: (Loc -> LogSource -> LogLevel -> LogStr -> IO ())
-> ErrorResponse -> ErrorResponse
-> YesodApp -> YesodApp
safeEh log' er req = traceStack "safeEh debug trace, log':" log' $ traceStack "safeEh debug trace, er:" er $ traceStack "safeEh debug trace, req:" req $ do safeEh log' er req = do
liftIO $ log' $(qLocation >>= liftLoc) "yesod-core" LevelError traceStack "safeEh debug trace:" (log', er, req) $ 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
H.status500 H.status500