Permalink
Browse files

Quick FTBFS fix due to minor QuickCheck API change.

Patch from Joachim Breitner in
7bff466 in Debian repo

Closes #1

Conflicts:

	debian/changelog
  • Loading branch information...
1 parent 08483d9 commit 7a8e30d419a52c96e212c6df48799c73ec841edb @jgoerzen committed Aug 11, 2010
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/Test/HUnit/Tools.hs
View
@@ -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

0 comments on commit 7a8e30d

Please sign in to comment.