diff --git a/tests/Tests/QuickCheckUtils.hs b/tests/Tests/QuickCheckUtils.hs index 6aa45e07282003b17197a699558cfcbcb75fcc0c..836e91164df8277d0c2d3d3317437986d8f815e6 100644 --- a/tests/Tests/QuickCheckUtils.hs +++ b/tests/Tests/QuickCheckUtils.hs @@ -76,7 +76,15 @@ instance Arbitrary B.ByteString where shrink = map B.pack . shrink . B.unpack #if !MIN_VERSION_base(4,4,0) -instance Random Word8 where +instance Random Int64 where + randomR = integralRandomR + random = randomR (minBound,maxBound) + +instance Random Word where + randomR = integralRandomR + random = randomR (minBound,maxBound) + +instance Random Word64 where randomR = integralRandomR random = randomR (minBound,maxBound) #endif