From dd20fc24da292de56414544d58d54ccb38b70e43 Mon Sep 17 00:00:00 2001
From: Bryan O'Sullivan <bos@serpentine.com>
Date: Tue, 11 Nov 2014 20:45:33 -0800
Subject: [PATCH] Fix tests under GHC 7.0
---
tests/Tests/QuickCheckUtils.hs | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/tests/Tests/QuickCheckUtils.hs b/tests/Tests/QuickCheckUtils.hs
index 6aa45e07..836e9116 100644
--- a/tests/Tests/QuickCheckUtils.hs
+++ b/tests/Tests/QuickCheckUtils.hs
@@ -76,7 +76,15 @@ instance Arbitrary B.ByteString where
shrink = map B.pack . shrink . B.unpack
#if !MIN_VERSION_base(4,4,0)
-instance Random Word8 where
+instance Random Int64 where
+ randomR = integralRandomR
+ random = randomR (minBound,maxBound)
+
+instance Random Word where
+ randomR = integralRandomR
+ random = randomR (minBound,maxBound)
+
+instance Random Word64 where
randomR = integralRandomR
random = randomR (minBound,maxBound)
#endif
--
GitLab