Update for QuickCheck 2.

[hath.git] / src / Octet.hs

diff --git a/src/Octet.hs b/src/Octet.hs
index d80b796bd09eae8b0071b62a5cdcd81b3de45843..7faf1d7851c18ac864147c2b5220c568ffe1a5b4 100644 (file)
--- a/src/Octet.hs
+++ b/src/Octet.hs
@@ -38,8 +38,6 @@ instance Arbitrary Octet where
       a8 <- arbitrary :: Gen Bit
       return (Octet a1 a2 a3 a4 a5 a6 a7 a8)
 
-    coarbitrary _ = variant 0
-
 
 instance Maskable Octet where
     apply_mask _ Maskbits.None _ = Octet.None
@@ -53,7 +51,7 @@ instance Maskable Octet where
         | mask == Three = oct { b8 = bit, b7 = bit, b6 = bit, b5 = bit, b4 = bit }
         | mask == Two = oct { b8 = bit, b7 = bit, b6 = bit, b5 = bit, b4 = bit, b3 = bit }
         | mask == Maskbits.One = oct { b8 = bit, b7 = bit, b6 = bit, b5 = bit, b4 = bit, b3 = bit, b2 = bit }
-        | mask == Maskbits.Zero = min_octet
+        | mask == Maskbits.Zero = oct { b8 = bit, b7 = bit, b6 = bit, b5 = bit, b4 = bit, b3 = bit, b2 = bit, b1 = bit }
         | otherwise = Octet.None