@@ -63,6 +63,12 @@ instance Arbitrary I16 where
6363instance Arbitrary B.ByteString where
6464 arbitrary = B.pack `fmap` arbitrary
6565
66+#if !MIN_VERSION_base(4,4,0)
67+instance Random Word8 where
68+ randomR = integralRandomR
69+ random = randomR (minBound,maxBound)
70+#endif
71+
6672genUnicode :: IsString a => Gen a
6773genUnicode = fmap fromString string where
6874 string = sized $ \n ->