From 7acff8dce20ad362a9fe135ba91c0a90c5a74b7c Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@uniworx.de>
Date: Wed, 19 Apr 2023 14:00:04 +0000
Subject: [PATCH] debug: trace Yesod.Core.Internal.Run.safeEh with call stack

---
 yesod-core/src/Yesod/Core/Internal/Run.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/yesod-core/src/Yesod/Core/Internal/Run.hs b/yesod-core/src/Yesod/Core/Internal/Run.hs
index 8f0afee9..759fa2bc 100644
--- a/yesod-core/src/Yesod/Core/Internal/Run.hs
+++ b/yesod-core/src/Yesod/Core/Internal/Run.hs
@@ -207,6 +207,9 @@ 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
     liftIO $ log' $(qLocation >>= liftLoc) "yesod-core" LevelError
            $ toLogStr $ "Error handler errored out: " ++ show er
     return $ YRPlain