git.iko.soy/text
on master help sign in
Let's see if this tweak helps the automated tests
614e82eBryan O'Sullivan
tests/Tests/QuickCheckUtils.hs+1−1
compare with master
unifiedsplit
@@ -206,7 +206,7 @@ instance Random Small where
206 random = randomR (minBound,maxBound)
206 random = randomR (minBound,maxBound)
207
207
208instance Arbitrary Small where
208instance Arbitrary Small where
209− arbitrary = arbitrarySizedIntegral
209+ arbitrary = choose (minBound, maxBound)
210 shrink = shrinkIntegral
210 shrink = shrinkIntegral
211
211
212integralRandomR :: (Integral a, RandomGen g) => (a,a) -> g -> (a,g)
212integralRandomR :: (Integral a, RandomGen g) => (a,a) -> g -> (a,g)