Commit f0696c35 authored by Camil Staps's avatar Camil Staps 🙂

Show error message for Failed Nothing

parent 5c9d91be
......@@ -377,6 +377,7 @@ where
join "\n - " (map (replaceSubString "\n" "\n " o printCE) ces)
FailedChildren fcs -> "\n Children tests failed: " +++ join ", " (map fst fcs)
Crashed -> "\n Crashed"
Failed Nothing -> "\n " +++ ee.message
_ -> ""
where
printFA :: FailedAssertion -> String
......
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