pqc 0.7.0.1 → 0.7.1

raw patch · 2 files changed

+6/−4 lines, 2 files

Files

• Test/QuickCheck/Parallel.hs +5/−3
• pqc.cabal +1/−1

@@ -208,7 +208,7 @@ #endif                  , computeSize       = case replay a of                                          Nothing    -> computeSize'-                                         Just (_,s) -> \_ _ -> s+                                         Just (_,s) -> computeSize' `at0` s                  , numSuccessTests   = 0                  , numDiscardedTests = 0 #if MIN_VERSION_QuickCheck(2,5,1)@@ -225,7 +225,9 @@           -- 0, 1, 2, ..., 99, 0, 1, 2, ..., 99, 0, 2, 4, ..., 98.           | n `roundTo` maxSize a + maxSize a <= maxSuccess a ||             n >= maxSuccess a ||-            maxSuccess a `mod` maxSize a == 0 = n `mod` maxSize a + d `div` 10+            maxSuccess a `mod` maxSize a == 0 = (n `mod` maxSize a + d `div` 10) `min` maxSize a           | otherwise =-            (n `mod` maxSize a) * maxSize a `div` (maxSuccess a `mod` maxSize a) + d `div` 10+            ((n `mod` maxSize a) * maxSize a `div` (maxSuccess a `mod` maxSize a) + d `div` 10) `min` maxSize a         n `roundTo` m = (n `div` m) * m+        at0 _ s 0 0 = s+        at0 f _ n d = f n d

@@ -1,5 +1,5 @@ name:                pqc-version:             0.7.0.1+version:             0.7.1 description:         Parallel batch driver for QuickCheck synopsis:            Parallel batch driver for QuickCheck category:            Testing