git.iko.soy/typeable/pandoc
on master help sign in
test-pandoc: Fixed + and - in diff output, which were reversed.
51d9d8bJohn MacFarlane
tests/test-pandoc.hs+2−2
compare with master
unifiedsplit
@@ -37,8 +37,8 @@ instance Show TestResult where
37
37
38showDiff :: [(DI, String)] -> String
38showDiff :: [(DI, String)] -> String
39showDiff [] = ""
39showDiff [] = ""
40−showDiff ((F, ln) : ds) = "- " ++ ln ++ "\n" ++ showDiff ds
40+showDiff ((F, ln) : ds) = "+ " ++ ln ++ "\n" ++ showDiff ds
41−showDiff ((S, ln) : ds) = "+ " ++ ln ++ "\n" ++ showDiff ds
41+showDiff ((S, ln) : ds) = "- " ++ ln ++ "\n" ++ showDiff ds
42showDiff ((B, _ ) : ds) = showDiff ds
42showDiff ((B, _ ) : ds) = showDiff ds
43
43
44tests :: [Test]
44tests :: [Test]