Commit d31b70e3 authored by bos's avatar bos
Browse files

Fix test suite build with GHC 7.0.x

parent 200a2cb0
......@@ -63,6 +63,12 @@ instance Arbitrary I16 where
instance Arbitrary B.ByteString where
arbitrary = B.pack `fmap` arbitrary
#if !MIN_VERSION_base(4,4,0)
instance Random Word8 where
randomR = integralRandomR
random = randomR (minBound,maxBound)
genUnicode :: IsString a => Gen a
genUnicode = fmap fromString string where
string = sized $ \n ->
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment