From 4b71808e48e7844d78c07a9df0d548f8edaaa5c0 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@uniworx.de>
Date: Wed, 19 Apr 2023 14:22:27 +0000
Subject: [PATCH] chore(debug): fix traceStack calls

---
 yesod-core/src/Yesod/Core/Internal/Run.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/yesod-core/src/Yesod/Core/Internal/Run.hs b/yesod-core/src/Yesod/Core/Internal/Run.hs
index eca2c8b6..7ae43bc9 100644
--- a/yesod-core/src/Yesod/Core/Internal/Run.hs
+++ b/yesod-core/src/Yesod/Core/Internal/Run.hs
@@ -208,10 +208,7 @@ runHandler rhe@RunHandlerEnv {..} handler yreq = withInternalState $ \resState -
 safeEh :: (Loc -> LogSource -> LogLevel -> LogStr -> IO ())
        -> ErrorResponse
        -> YesodApp
-safeEh log' er req = do
-    traceStack "safeEh debug trace, log':" log'
-    traceStack "safeEh debug trace, er:" er
-    traceStack "safeEh debug trace, req:" req
+safeEh log' er req = traceStack "safeEh debug trace, log':" log' $ traceStack "safeEh debug trace, er:" er $ traceStack "safeEh debug trace, req:" req $ do
     liftIO $ log' $(qLocation >>= liftLoc) "yesod-core" LevelError
            $ toLogStr $ "Error handler errored out: " ++ show er
     return $ YRPlain