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 =
 forAll' :: (TestShow a, Testable prop)
        => Gen a -> (a -> prop) -> Property
 forAll' gen pf =
+  again $
  MkProperty $
  gen >>= \x ->
    unProperty (counterexample (testShow x) (pf x))

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))