Show event sequence on new lines (#1079)

pull/1080/head
Artur Cygan 1 year ago committed by GitHub
parent e9860f3f42
commit a7d9290295
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
  1. 2
      lib/Echidna/UI/Report.hs

@ -108,7 +108,7 @@ ppFail b es xs = do
<> ppEvents es
ppEvents :: Events -> String
ppEvents es = if null es then "" else "Event sequence: " <> T.unpack (T.intercalate ", " es)
ppEvents es = if null es then "" else unlines $ "Event sequence:" : (T.unpack <$> es)
-- | Pretty-print the status of a test.

Loading…
Cancel
Save