WPB-5312 (#3782)

wireapp · Dec 15, 2023 · 04da9d6 · 04da9d6
1 parent 7feed45
commit 04da9d6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/changelog.d/5-internal/WPB-5312 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
@@ -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 #-}