@@ -63,6 +63,12 @@ instance Arbitrary I16 where
63instance Arbitrary B.ByteString where
63instance Arbitrary B.ByteString where
64 arbitrary = B.pack `fmap` arbitrary
64 arbitrary = B.pack `fmap` arbitrary
66+#if !MIN_VERSION_base(4,4,0)
67+instance Random Word8 where
68+ randomR = integralRandomR
69+ random = randomR (minBound,maxBound)
66genUnicode :: IsString a => Gen a
72genUnicode :: IsString a => Gen a
67genUnicode = fmap fromString string where
73genUnicode = fmap fromString string where
68 string = sized $ \n ->
74 string = sized $ \n ->