@@ -76,7 +76,15 @@ instance Arbitrary B.ByteString where
76 shrink = map B.pack . shrink . B.unpack
76 shrink = map B.pack . shrink . B.unpack
78#if !MIN_VERSION_base(4,4,0)
78#if !MIN_VERSION_base(4,4,0)
79−instance Random Word8 where
79+instance Random Int64 where
80+ randomR = integralRandomR
81+ random = randomR (minBound,maxBound)
83+instance Random Word where
84+ randomR = integralRandomR
85+ random = randomR (minBound,maxBound)
87+instance Random Word64 where
80 randomR = integralRandomR
88 randomR = integralRandomR
81 random = randomR (minBound,maxBound)
89 random = randomR (minBound,maxBound)