Commit 77193177 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Make the test output a bit more self-explanatory

parent ba20cc39
......@@ -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)
)
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment