39 lines
1.2 KiB
Plaintext
39 lines
1.2 KiB
Plaintext
$OpenBSD: patch-WordListTest_hs,v 1.1 2011/04/11 14:52:45 kili Exp $
|
|
|
|
Remove instance declarations that already come with the QuickCheck
|
|
package.
|
|
|
|
--- WordListTest.hs.orig Thu Jan 28 02:19:33 2010
|
|
+++ WordListTest.hs Sun Dec 26 16:24:53 2010
|
|
@@ -27,30 +27,6 @@ checks = [
|
|
("Word256",
|
|
quickCheck (\(w :: [Word256]) -> (listFromOctets . listToOctets) w == w))]
|
|
|
|
-instance Arbitrary Word8 where
|
|
- arbitrary = do
|
|
- let mx,mn :: Integer
|
|
- mx = fromIntegral (maxBound :: Word8)
|
|
- mn = fromIntegral (minBound :: Word8)
|
|
- c <- choose (mx, mn)
|
|
- return $ fromIntegral c
|
|
-
|
|
-instance Arbitrary Word32 where
|
|
- arbitrary = do
|
|
- let mx,mn :: Integer
|
|
- mx = fromIntegral (maxBound :: Word32)
|
|
- mn = fromIntegral (minBound :: Word32)
|
|
- c <- choose (mx, mn)
|
|
- return $ fromIntegral c
|
|
-
|
|
-instance Arbitrary Word64 where
|
|
- arbitrary = do
|
|
- let mx,mn :: Integer
|
|
- mx = fromIntegral (maxBound :: Word64)
|
|
- mn = fromIntegral (minBound :: Word64)
|
|
- c <- choose (mx, mn)
|
|
- return $ fromIntegral c
|
|
-
|
|
instance Arbitrary Word128 where
|
|
arbitrary = do
|
|
x <- vector (128 `div` 8) :: Gen [Word8]
|