@@ -69,16 +69,14 @@ test fn name (input, expected) =
70vividize :: (DI,String) -> String
70vividize :: (DI,String) -> String
71vividize (B,s) = s
71vividize (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]
74property :: QP.Testable a => TestName -> a -> Test
77property :: QP.Testable a => TestName -> a -> Test
75property = testProperty
78property = testProperty
77−vivid :: String -> String
78−vivid s = setSGRCode [SetColor Background Dull Red
79− , SetColor Foreground Vivid White] ++ s
80− ++ setSGRCode [Reset]
82infix 5 =?>
80infix 5 =?>
83(=?>) :: a -> b -> (a,b)
81(=?>) :: a -> b -> (a,b)
84x =?> y = (x, y)
82x =?> y = (x, y)