Quick FTBFS fix due to minor QuickCheck API change.

Patch from Joachim Breitner in 7bff466 in Debian repo Closes #1 Conflicts: debian/changelog
jgoerzen · Aug 11, 2010 · 7a8e30d · 7a8e30d
1 parent 08483d9
commit 7a8e30d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Test/HUnit/Tools.hs b/src/Test/HUnit/Tools.hs
@@ -207,7 +207,8 @@ localquickCheckWithResult args p =
     runATest st f =
       do
         let size = computeSize st (numSuccessTests st) (numDiscardedTests st)
-        (res, ts) <- run (unProp (f rnd1 size))
+        MkRose mres ts <- protectRose (unProp (f rnd1 size))
+        res <- mres
         callbackPostTest st res
 
         case ok res of