Commit 1fb6a56d authored by Camil Staps's avatar Camil Staps 🚀

Merge branch '9-colour-passed-failed-skipped-in-human-readable-output' into 'master'

Resolve "colour Passed/Failed/Skipped in human readable output"

Closes #9

See merge request !1
parents 43fc5027 d053b758
...@@ -365,9 +365,9 @@ where ...@@ -365,9 +365,9 @@ where
humanReadable (EndEvent ee) = event +++ ee.EndEvent.name +++ diff humanReadable (EndEvent ee) = event +++ ee.EndEvent.name +++ diff
where where
event = case ee.event of event = case ee.event of
Passed -> "Passed: " Passed -> "\033[0;32mPassed\033[0m: "
Failed _ -> "Failed: " Failed _ -> "\033[0;31mFailed\033[0m: "
Skipped -> "Skipped: " Skipped -> "\033[0;33mSkipped\033[0m: "
diff = case ee.event of diff = case ee.event of
Failed (Just r) -> case r of Failed (Just r) -> case r of
FailedAssertions fas -> "\n Failed assumptions:\n " +++ FailedAssertions fas -> "\n Failed assumptions:\n " +++
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment