Show event sequence on new lines (#1079)

1 year ago · a7d9290295
parent e9860f3f42
commit a7d9290295
1 changed files with 1 additions and 1 deletions
--- a/lib/Echidna/UI/Report.hs
+++ b/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.