github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00
Code Issues Projects Releases Wiki Activity

Fail -> Failure, plus Reason.

Browse Source
This commit is contained in:
Rob Rix 2017-02-13 17:29:05 -05:00
parent b893085385
commit 80c1647d02
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Test/Hspec/LeanCheck.hs
View File

@ -42,7 +42,7 @@ instance Example Property where
evaluateExample (Property prop) (Params _ bound) _ _ = do
result <- iocounterExample bound prop
case result of
Just messages -> pure $ Fail Nothing (concat messages)
Just messages -> pure $ Failure Nothing (Reason (concat messages))
Nothing -> pure Success
class IOTestable t where