diff --git a/Extra.cabal b/Extra.cabal
--- a/Extra.cabal
+++ b/Extra.cabal
@@ -1,5 +1,5 @@
 Name:           Extra
-Version:        1.46
+Version:        1.46.1
 License:        BSD3
 License-File:	COPYING
 Author:         David Fox
diff --git a/Test/QUnit.hs b/Test/QUnit.hs
--- a/Test/QUnit.hs
+++ b/Test/QUnit.hs
@@ -60,7 +60,7 @@
     HU.TestCase $
     do result <- QC.quickCheckWithResult args prop
        case result of
-         (QC.Success _ _ _) -> return ()
-         (QC.GaveUp ntest _ _) -> HU.assertFailure $ "Arguments exhausted after" ++ show ntest ++ (if ntest == 1 then " test." else " tests.")
-         (QC.Failure _ _ _ _usedSize reason _ _) -> HU.assertFailure reason
-         (QC.NoExpectedFailure _ _ _) -> HU.assertFailure $ "No Expected Failure"
+         QC.Success{} -> return ()
+         QC.GaveUp{} -> let ntest = QC.numTests result in HU.assertFailure $ "Arguments exhausted after" ++ show ntest ++ (if ntest == 1 then " test." else " tests.")
+         QC.Failure{} -> let reason = QC.reason result in HU.assertFailure reason
+         QC.NoExpectedFailure{} -> HU.assertFailure $ "No Expected Failure"