Update for QuickCheck 2.

[hath.git] / src / IPv4Address.hs

diff --git a/src/IPv4Address.hs b/src/IPv4Address.hs
index 575ce0d453d805e6647be844d80b9d9783fdb6c6..e72dd592ee1c2f1ad8a3fe5dad6fe26fc43701b1 100644 (file)
--- a/src/IPv4Address.hs
+++ b/src/IPv4Address.hs
@@ -46,8 +46,6 @@ instance Arbitrary IPv4Address where
       oct4 <- arbitrary :: Gen Octet
       return (IPv4Address oct1 oct2 oct3 oct4)
 
-    coarbitrary _ = variant 0
-
 
 
 instance Maskable IPv4Address where