Commit 614e82eb authored by bos's avatar bos
Browse files

Let's see if this tweak helps the automated tests

parent b437bb7e
...@@ -206,7 +206,7 @@ instance Random Small where ...@@ -206,7 +206,7 @@ instance Random Small where
random = randomR (minBound,maxBound) random = randomR (minBound,maxBound)
instance Arbitrary Small where instance Arbitrary Small where
arbitrary = arbitrarySizedIntegral arbitrary = choose (minBound, maxBound)
shrink = shrinkIntegral shrink = shrinkIntegral
integralRandomR :: (Integral a, RandomGen g) => (a,a) -> g -> (a,g) integralRandomR :: (Integral a, RandomGen g) => (a,a) -> g -> (a,g)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment