From 614e82ebe196dfa71d251efa6a51fc79f76393ce Mon Sep 17 00:00:00 2001
From: Bryan O'Sullivan <bos@serpentine.com>
Date: Wed, 8 Jan 2014 08:27:09 -0800
Subject: [PATCH] Let's see if this tweak helps the automated tests
---
tests/Tests/QuickCheckUtils.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tests/Tests/QuickCheckUtils.hs b/tests/Tests/QuickCheckUtils.hs
index c2ed6e7c..8df625d8 100644
--- a/tests/Tests/QuickCheckUtils.hs
+++ b/tests/Tests/QuickCheckUtils.hs
@@ -206,7 +206,7 @@ instance Random Small where
random = randomR (minBound,maxBound)
instance Arbitrary Small where
- arbitrary = arbitrarySizedIntegral
+ arbitrary = choose (minBound, maxBound)
shrink = shrinkIntegral
integralRandomR :: (Integral a, RandomGen g) => (a,a) -> g -> (a,g)
--
GitLab