X-Git-Url: http://gitweb.michael.orlitzky.com/?p=hath.git;a=blobdiff_plain;f=src%2FCidr.hs;h=422a0adf076216f16b128791a610eee54fc9ca42;hp=b5dc9d2b8022de1fdf89e01bea4ebc3644c3f137;hb=9200fe5fcab505e5a331514a6ee687c6f78011b1;hpb=6477e5a14e0fbd02750cf87dc21900525f63452f

diff --git a/src/Cidr.hs b/src/Cidr.hs
index b5dc9d2..422a0ad 100644
--- 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)