diff --git a/changelog.d/5-internal/WPB-5312 b/changelog.d/5-internal/WPB-5312 new file mode 100644 index 0000000000..b9e6caa4ef --- /dev/null +++ b/changelog.d/5-internal/WPB-5312 @@ -0,0 +1 @@ +Improve error logs diff --git a/libs/wai-utilities/src/Network/Wai/Utilities/Server.hs b/libs/wai-utilities/src/Network/Wai/Utilities/Server.hs index 1226a36313..e611a3e34f 100644 --- a/libs/wai-utilities/src/Network/Wai/Utilities/Server.hs +++ b/libs/wai-utilities/src/Network/Wai/Utilities/Server.hs @@ -220,9 +220,9 @@ errorHandlers = ZlibException _ -> pure . Left $ Wai.mkError status500 "server-error" "Server Error", - Handler $ \(_ :: SomeException) -> + Handler $ \(e :: SomeException) -> pure . Left $ - Wai.mkError status500 "server-error" "Server Error" + Wai.mkError status500 "server-error" ("Server Error. " <> cs (displayException e)) ] {-# INLINE errorHandlers #-}