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