Make the test output a bit more self-explanatory

77193177 · Simon Peyton Jones · ba20cc39 · 77193177
Commit 77193177 authored Sep 28, 2012 by Simon Peyton Jones
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

testsuite/tests/th/T5358.hs testsuite/tests/th/T5358.hs +1 -1

No files found.
--- a/testsuite/tests/th/T5358.hs
+++ b/testsuite/tests/th/T5358.hs
@@ -10,5 +10,5 @@ t2 x = x
 prop_x1 x = t1 x == t2 x

 runTests = $( do VarI _ t _ _ <- reify (mkName "prop_x1")
-                 error $ pprint t
+                 error $ ("runTest called error: " ++ pprint t)
            )