From ea3900dd93e27224f74ca377912df13f177c8214 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Wed, 14 Jan 2026 00:58:06 +0000
Subject: [PATCH] Add extra context to test errors

---
 haskell/Pre.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/haskell/Pre.hs b/haskell/Pre.hs
index 7a7ac62..ae63b5d 100644
--- 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