@@ -62,17 +62,17 @@ test fn name (input, expected) =
6262 actual' = toString $ fn input
6363 expected' = toString expected
6464 diff = getDiff (lines expected') (lines actual')
65− expected'' = unlines $ map vividize $ filter (\(d,_) -> d /= S) diff
66− actual'' = unlines $ map vividize $ filter (\(d,_) -> d /= F) diff
65+ expected'' = unlines $ map vividize [Second x | Second x <- diff]
66+ actual'' = unlines $ map vividize [First x | First x <- diff]
6767 dashes "" = replicate 72 '-'
6868 dashes x = replicate (72 - length x - 5) '-' ++ " " ++ x ++ " ---"
6969
70−vividize :: (DI,String) -> String
71−vividize (B,s) = s
72−vividize (F,s) = s
73−vividize (S,s) = setSGRCode [SetColor Background Dull Red
70+vividize :: Diff String -> String
71+vividize (Both s _) = s
72+vividize (First s) = s
73+vividize (Second s) = setSGRCode [SetColor Background Dull Red
7474 , SetColor Foreground Vivid White] ++ s
75− ++ setSGRCode [Reset]
75+ ++ setSGRCode [Reset]
7676
7777property :: QP.Testable a => TestName -> a -> Test
7878property = testProperty