[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/2.0.0-2-1-g7bff466

[Joachim Breitner]

The following commit has been merged in the master branch:
commit 7bff466ce6d8a24e01e34800b913f60839385d01
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Mon May 3 21:48:08 2010 +0200

    Quick FTBFS fix due to minor QuickCheck API change

diff --git a/debian/changelog b/debian/changelog
index d269403..a775623 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+haskell-testpack (2.0.0-3) unstable; urgency=low
+
+  * Quick FTBFS fix due to minor QuickCheck API change
+
+ -- Joachim Breitner <nomeata at debian.org>  Mon, 03 May 2010 21:47:10 +0200
+
 haskell-testpack (2.0.0-2) unstable; urgency=low
 
   * Rebilt with correct Haskell environment.
diff --git a/src/Test/HUnit/Tools.hs b/src/Test/HUnit/Tools.hs
index ca72e47..3a441a9 100644
--- 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

-- 
haskell-testpack