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 0c70760dc..9773966b6 100644 --- a/tests/test-pandoc.hs +++ b/tests/test-pandoc.hs @@ -37,8 +37,8 @@ instance Show TestResult where showDiff :: [(DI, String)] -> String showDiff [] = "" -showDiff ((F, ln) : ds) = "- " ++ ln ++ "\n" ++ showDiff ds -showDiff ((S, ln) : ds) = "+ " ++ ln ++ "\n" ++ showDiff ds +showDiff ((F, ln) : ds) = "+ " ++ ln ++ "\n" ++ showDiff ds +showDiff ((S, ln) : ds) = "- " ++ ln ++ "\n" ++ showDiff ds showDiff ((B, _ ) : ds) = showDiff ds tests :: [Test] |