diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-01-11 18:10:46 -0800 |
|---|---|---|
| committer | Nathan Gass <gass@search.ch> | 2011-01-12 11:35:40 +0100 |
| commit | 51d9d8b674ea21c821113ec2bf92bb5e8a1cf067 (patch) | |
| tree | c2a6fb4cd8258e23d157bfec984c15aa70b96285 /tests | |
| parent | 715e33705f9c857c1bfd82f1f333b381d62feed4 (diff) | |
| download | pandoc-51d9d8b674ea21c821113ec2bf92bb5e8a1cf067.tar.gz | |
test-pandoc: Fixed + and - in diff output, which were reversed.
Diffstat (limited to 'tests')
| -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] |