Fix build of tests with GHC 7.0 (!)

haskell · Apr 5, 2015 · e373471 · e373471
1 parent e66786c
commit e373471
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/QC/Common.hs b/tests/QC/Common.hs
@@ -28,6 +28,15 @@ import qualified Data.Text.Lazy as TL
 import qualified Data.Attoparsec.ByteString.Lazy as BL
 import qualified Data.Attoparsec.Text.Lazy as TL
 
+#if !MIN_VERSION_random(1,0,1)
+instance Random Word8 where
+  randomR = integralRandomR
+  random = randomR (minBound,maxBound)
+
+instance Arbitrary Word8 where
+    arbitrary = choose (minBound, maxBound)
+#endif
+
 parseBS :: BL.Parser r -> BL.ByteString -> Maybe r
 parseBS p = BL.maybeResult . BL.parse p