summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNickSmallbone <>2018-09-06 13:08:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-09-06 13:08:00 (GMT)
commita6bb76506b03360687be411f51f26149a2f74f0b (patch)
tree1c64571448ee38f024f72e6d0739125cf7bbefbb
parentd89e2a5e3209563c2280f25caac0ba6bea597da7 (diff)
version 2.12.12.12.1
-rw-r--r--QuickCheck.cabal4
-rw-r--r--Test/QuickCheck/Test.hs5
-rw-r--r--changelog3
3 files changed, 7 insertions, 5 deletions
diff --git a/QuickCheck.cabal b/QuickCheck.cabal
index d0c1039..b652e7c 100644
--- a/QuickCheck.cabal
+++ b/QuickCheck.cabal
@@ -1,5 +1,5 @@
Name: QuickCheck
-Version: 2.12
+Version: 2.12.1
Cabal-Version: >= 1.8
Build-type: Simple
License: BSD3
@@ -55,7 +55,7 @@ source-repository head
source-repository this
type: git
location: https://github.com/nick8325/quickcheck
- tag: 2.12
+ tag: 2.12.1
flag templateHaskell
Description: Build Test.QuickCheck.All, which uses Template Haskell.
diff --git a/Test/QuickCheck/Test.hs b/Test/QuickCheck/Test.hs
index c68a361..19d4fc9 100644
--- a/Test/QuickCheck/Test.hs
+++ b/Test/QuickCheck/Test.hs
@@ -322,11 +322,10 @@ runATest st f =
let continue break st' | abort res = break st'
| otherwise = test st'
- let inc x = Map.insertWith (+) x 1
let st' = st{ coverageConfidence = maybeCheckCoverage res `mplus` coverageConfidence st
, maxSuccessTests = fromMaybe (maxSuccessTests st) (maybeNumTests res)
- , S.labels = inc (P.labels res) (S.labels st)
- , S.classes = foldr inc (S.classes st) (P.classes res)
+ , S.labels = Map.insertWith (+) (P.labels res) 1 (S.labels st)
+ , S.classes = Map.unionWith (+) (S.classes st) (Map.fromList (zip (P.classes res) (repeat 1)))
, S.tables =
foldr (\(tab, x) -> Map.insertWith (Map.unionWith (+)) tab (Map.singleton x 1))
(S.tables st) (P.tables res)
diff --git a/changelog b/changelog
index 1c77be8..54d5c77 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,6 @@
+QuickCheck 2.12.1 (release 2018-09-06)
+ * Fix bug in 'classify'.
+
QuickCheck 2.12 (release 2018-09-03)
* Silently breaking changes!
- The Arbitrary instance for Word now generates only small