diff options
-rw-r--r-- | test/UnitTests.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test/UnitTests.hs b/test/UnitTests.hs index 53c7fc82..f79f328d 100644 --- a/test/UnitTests.hs +++ b/test/UnitTests.hs | |||
@@ -133,6 +133,7 @@ x =*= y = | |||
133 | forAll' :: (TestShow a, Testable prop) | 133 | forAll' :: (TestShow a, Testable prop) |
134 | => Gen a -> (a -> prop) -> Property | 134 | => Gen a -> (a -> prop) -> Property |
135 | forAll' gen pf = | 135 | forAll' gen pf = |
136 | again $ | ||
136 | MkProperty $ | 137 | MkProperty $ |
137 | gen >>= \x -> | 138 | gen >>= \x -> |
138 | unProperty (counterexample (testShow x) (pf x)) | 139 | unProperty (counterexample (testShow x) (pf x)) |