summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNickSmallbone <>2018-09-12 16:02:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-09-12 16:02:00 (GMT)
commitb1aabb5f663f8cc2dced88d52f635b0c22550491 (patch)
tree45122676e8a710edd2efb0bab7115e50417cede3
parent3eca1114443d7ca35616c72356009bf4cc656e61 (diff)
version 2.12.42.12.4
-rw-r--r--QuickCheck.cabal4
-rw-r--r--Test/QuickCheck/Arbitrary.hs2
-rw-r--r--changelog2
3 files changed, 4 insertions, 4 deletions
diff --git a/QuickCheck.cabal b/QuickCheck.cabal
index 5536293..bf0b6e1 100644
--- a/QuickCheck.cabal
+++ b/QuickCheck.cabal
@@ -1,5 +1,5 @@
Name: QuickCheck
-Version: 2.12.3
+Version: 2.12.4
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.3
+ tag: 2.12.4
flag templateHaskell
Description: Build Test.QuickCheck.All, which uses Template Haskell.
diff --git a/Test/QuickCheck/Arbitrary.hs b/Test/QuickCheck/Arbitrary.hs
index fbc5b75..e34437d 100644
--- a/Test/QuickCheck/Arbitrary.hs
+++ b/Test/QuickCheck/Arbitrary.hs
@@ -1132,7 +1132,7 @@ shrinkDecimal x
-- where the inner calls to shrink use integer shrinking.
[ y
| precision <- take 6 (iterate (*10) 1),
- let m = truncate (toRational x * precision),
+ let m = round (toRational x * precision),
m `mod` 10 /= 0, -- don't allow shrinking to increase digits
n <- m:shrink m,
let y = fromRational (fromInteger n / precision),
diff --git a/changelog b/changelog
index 95ec863..8925ecd 100644
--- a/changelog
+++ b/changelog
@@ -1,4 +1,4 @@
-QuickCheck 2.12.3 (released 2018-09-12)
+QuickCheck 2.12.3, 2.12.4 (released 2018-09-12)
* Shrinking for Float and Decimal now works by reducing the number
of digits in the number. The new function shrinkDecimal
implements this shrinking behaviour.