From 6dca4c3a349f6d358d2fd602e40f181c21751772 Mon Sep 17 00:00:00 2001 From: Leif Battermann Date: Thu, 14 Dec 2023 08:42:34 +0000 Subject: [PATCH 1/2] add exception details to error msg --- libs/wai-utilities/src/Network/Wai/Utilities/Server.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 #-} From 090f00ee2bb39981c565085fa6c04ae6031f5762 Mon Sep 17 00:00:00 2001 From: Leif Battermann Date: Fri, 15 Dec 2023 10:50:58 +0000 Subject: [PATCH 2/2] changelog --- changelog.d/5-internal/WPB-5312 | 1 + 1 file changed, 1 insertion(+) create mode 100644 changelog.d/5-internal/WPB-5312 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