@@ -33,8 +33,8 @@ data TestResult = TestPassed
3333instance Show TestResult where
3434 show TestPassed = "PASSED"
3535 show (TestError ec) = "ERROR " ++ show ec
36− show (TestFailed cmd file d) = cmd ++ "\n--- expected (" ++ file ++ ")" ++
37− "\n+++ actual\n" ++ showDiff d
36+ show (TestFailed cmd file d) = "\n--- " ++ file ++
37+ "\n+++ " ++ cmd ++ "\n" ++ showDiff d
3838
3939showDiff :: [(DI, String)] -> String
4040showDiff [] = ""