From 51d9d8b674ea21c821113ec2bf92bb5e8a1cf067 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 11 Jan 2011 18:10:46 -0800 Subject: test-pandoc: Fixed + and - in diff output, which were reversed. --- tests/test-pandoc.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests') 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] -- cgit v1.2.3