debug: add missing Debug.Trace import

2023-04-19 14:01:46 +00:00 · 2023-04-19 14:01:46 +00:00 · 8488711b56
commit 8488711b56
parent 7acff8dce2
1 changed files with 2 additions and 0 deletions
--- a/yesod-core/src/Yesod/Core/Internal/Run.hs
+++ b/yesod-core/src/Yesod/Core/Internal/Run.hs
@ -40,6 +40,8 @@ import           Yesod.Routes.Class           (Route, renderRoute)
 import           Control.DeepSeq              (($!!), NFData)
 import           UnliftIO.Exception

+import Debug.Trace (traceStack)
+
 -- | Convert a synchronous exception into an ErrorResponse
 toErrorHandler :: SomeException -> IO ErrorResponse
 toErrorHandler e0 = handleAny errFromShow $