@@ -38,9 +38,12 @@ instance Show TestResult where
39showDiff :: (Int,Int) -> [(DI, String)] -> String
39showDiff :: (Int,Int) -> [(DI, String)] -> String
40showDiff _ [] = ""
40showDiff _ [] = ""
41+showDiff (l,r) ((F, ln) : ds) =
41−showDiff (l,r) ((F, ln) : ds) = printf "%4d +" l ++ ln ++ "\n" ++ showDiff (l+1,r) ds
42+ printf "+%4d " l ++ ln ++ "\n" ++ showDiff (l+1,r) ds
43+showDiff (l,r) ((S, ln) : ds) =
42−showDiff (l,r) ((S, ln) : ds) = printf "%4d -" r ++ ln ++ "\n" ++ showDiff (l,r+1) ds
44+ printf "-%4d " r ++ ln ++ "\n" ++ showDiff (l,r+1) ds
43−showDiff (l,r) ((B, _ ) : ds) = showDiff (l+1,r+1) ds
45+showDiff (l,r) ((B, _ ) : ds) =
46+ showDiff (l+1,r+1) ds
45tests :: [Test]
48tests :: [Test]
46tests = [ testGroup "markdown" [ testGroup "writer" (writerTests "markdown" ++ lhsWriterTests "markdown")
49tests = [ testGroup "markdown" [ testGroup "writer" (writerTests "markdown" ++ lhsWriterTests "markdown")