Add extra context to test errors

2026-01-14 00:58:06 +00:00 · 2026-01-14 00:58:06 +00:00 · ea3900dd93
commit ea3900dd93
parent 19d402ec8f
1 changed files with 2 additions and 2 deletions
--- a/haskell/Pre.hs
+++ b/haskell/Pre.hs
@ -342,8 +342,8 @@ displayTestResultsConsole terminalWidth testResult =
                                <> displayLogs
                                <> setColour Vivid Red
                                <> indentAllLines indent case e of
-                                    ExceptionFailure ex -> T.show ex
-                                    AssertionFailure t -> T.stripEnd t
+                                    ExceptionFailure ex -> "Exception: " <> T.show ex
+                                    AssertionFailure t -> "Assertion failed: " <> T.stripEnd t
                                    GoldenMissing -> "Golden file missing"
                                    GoldenFailure{expected, actual} ->
                                        "Expected:\n" <> T.stripEnd expected <> "\nActual:\n" <> T.stripEnd actual