@@ -76,7 +76,15 @@ instance Arbitrary B.ByteString where
7676 shrink = map B.pack . shrink . B.unpack
7777
7878#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)
82+
83+instance Random Word where
84+ randomR = integralRandomR
85+ random = randomR (minBound,maxBound)
86+
87+instance Random Word64 where
8088 randomR = integralRandomR
8189 random = randomR (minBound,maxBound)
8290#endif