quickSafe: do not call show on already escaped output (haskell#30)

This output: *** Failed! ... QFilePath "/\\?/a:a" is much easier to digest than: "*** FAILED! ... \NQFILEPATH \"/\\\\?/A:A\"\N"
bgamari · Oct 28, 2014 · 7392405 · 7392405
1 parent c9c1d58
commit 7392405
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/AutoTest.hs b/tests/AutoTest.hs
@@ -40,4 +40,5 @@ quickSafe prop = do
     res <- quickCheckWithResult stdArgs{chatty=False, maxSuccess=10000} prop
     case res of
         Success{} -> return ()
-        _ -> error $ show res
+        -- Output is already escaped. Do not call show on it, but print as-is.
+        _ -> error $ show res{output=""} ++ "\n" ++ (output res)