Extra 1.46 → 1.46.1

raw patch · 2 files changed

+5/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Extra.cabal +1/−1
• Test/QUnit.hs +4/−4

@@ -1,5 +1,5 @@ Name:           Extra-Version:        1.46+Version:        1.46.1 License:        BSD3 License-File:	COPYING Author:         David Fox

@@ -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"