diff options
| -rw-r--r-- | tests/test-pandoc.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/test-pandoc.hs b/tests/test-pandoc.hs index 586b807c2..7b585a921 100644 --- a/tests/test-pandoc.hs +++ b/tests/test-pandoc.hs @@ -33,8 +33,8 @@ data TestResult = TestPassed instance Show TestResult where show TestPassed = "PASSED" show (TestError ec) = "ERROR " ++ show ec - show (TestFailed cmd file d) = cmd ++ "\n--- expected (" ++ file ++ ")" ++ - "\n+++ actual\n" ++ showDiff d + show (TestFailed cmd file d) = "\n--- " ++ file ++ + "\n+++ " ++ cmd ++ "\n" ++ showDiff d showDiff :: [(DI, String)] -> String showDiff [] = "" |