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

chore(debug): fix traceStack calls

Browse Source
This commit is contained in:
Sarah Vaupel 2023-04-19 14:22:27 +00:00
parent 8488711b56
commit 4b71808e48
1 changed files with 1 additions and 4 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,10 +208,7 @@ 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 = do safeEh log' er req = traceStack "safeEh debug trace, log':" log' $ traceStack "safeEh debug trace, er:" er $ traceStack "safeEh debug trace, req:" 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