blob: 0b27043aed2f4fe25b8f14c087dd60319d25df72 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
--- bloomfilter-1.2.6.10-orig/tests/QCSupport.hs 2012-06-16 09:59:56.000000000 +1000
+++ bloomfilter-1.2.6.10/tests/QCSupport.hs 2012-07-14 19:00:06.035731133 +1000
@@ -20,9 +20,6 @@
arbitrary = choose (epsilon, 1 - epsilon)
where epsilon = 1e-6 :: P
-instance Arbitrary Ordering where
- arbitrary = oneof [return LT, return GT, return EQ]
-
-- For some reason, MIN_VERSION_random doesn't work here :-(
#if __GLASGOW_HASKELL__ < 704
integralRandomR :: (Integral a, RandomGen g) => (a, a) -> g -> (a, g)
|