on master help sign in
Let's see if this tweak helps the automated tests
commit614e82ebe196dfa71d251efa6a51fc79f76393ce authorBryan O'Sullivan <bos@serpentine.com> dateWed 8 Jan 2014, 08:27 (13 years ago) parentb437bb7
1 file changed+1−1
tests/Tests/QuickCheckUtils.hs+1−1
tests/Tests/QuickCheckUtils.hs+1−1
@@ -206,7 +206,7 @@ instance Random Small where
206206 random = randomR (minBound,maxBound)
207207
208208instance Arbitrary Small where
209− arbitrary = arbitrarySizedIntegral
209+ arbitrary = choose (minBound, maxBound)
210210 shrink = shrinkIntegral
211211
212212integralRandomR :: (Integral a, RandomGen g) => (a,a) -> g -> (a,g)