@@ -69,16 +69,14 @@ test fn name (input, expected) =
6969
7070vividize :: (DI,String) -> String
7171vividize (B,s) = s
72−vividize (_,s) = vivid s
72+vividize (F,s) = s
73+vividize (S,s) = setSGRCode [SetColor Background Dull Red
74+ , SetColor Foreground Vivid White] ++ s
75+ ++ setSGRCode [Reset]
7376
7477property :: QP.Testable a => TestName -> a -> Test
7578property = testProperty
7679
77−vivid :: String -> String
78−vivid s = setSGRCode [SetColor Background Dull Red
79− , SetColor Foreground Vivid White] ++ s
80− ++ setSGRCode [Reset]
81−
8280infix 5 =?>
8381(=?>) :: a -> b -> (a,b)
8482x =?> y = (x, y)