From d31b70e3752f743bb6e13ac56aed25082cc7ba17 Mon Sep 17 00:00:00 2001
From: Bryan O'Sullivan <bos@serpentine.com>
Date: Mon, 30 Dec 2013 15:54:11 -0800
Subject: [PATCH] Fix test suite build with GHC 7.0.x
---
tests/Tests/QuickCheckUtils.hs | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/tests/Tests/QuickCheckUtils.hs b/tests/Tests/QuickCheckUtils.hs
index c1fc9435..a115af42 100644
--- a/tests/Tests/QuickCheckUtils.hs
+++ b/tests/Tests/QuickCheckUtils.hs
@@ -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)
+#endif
+
genUnicode :: IsString a => Gen a
genUnicode = fmap fromString string where
string = sized $ \n ->
--
GitLab