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
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)
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