debug: fix traceStack call

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