Update for QuickCheck 2.

[hath.git] / src / Cidr.hs

diff --git a/src/Cidr.hs b/src/Cidr.hs
index b5dc9d2b8022de1fdf89e01bea4ebc3644c3f137..422a0adf076216f16b128791a610eee54fc9ca42 100644 (file)
--- a/src/Cidr.hs
+++ b/src/Cidr.hs
@@ -45,7 +45,6 @@ instance Arbitrary Cidr where
       mask <- arbitrary :: Gen Maskbits
       return (Cidr ipv4 mask)
 
-    coarbitrary _ = variant 0
 
 instance Eq Cidr where
   cidr1 == cidr2 = (cidr1 `equivalent` cidr2)