@@ -66,9 +66,9 @@ deriveOutput path = parseRelFile $
66shouldMatch :: Bool -> Text -> Text -> Expectation
66shouldMatch :: Bool -> Text -> Text -> Expectation
67shouldMatch idempotencyTest actual expected =
67shouldMatch idempotencyTest actual expected =
68 when (actual /= expected) . expectationFailure $ unlines
68 when (actual /= expected) . expectationFailure $ unlines
69− [ "expected (" ++ pass ++ "):"
69+ [ ">>>>>>>>>>>>>>>>>>>>>> expected (" ++ pass ++ "):"
70 , T.unpack expected
70 , T.unpack expected
71− , "but got:"
71+ , ">>>>>>>>>>>>>>>>>>>>>> but got:"
72 , T.unpack actual
72 , T.unpack actual