X-Git-Url: http://gitweb.michael.orlitzky.com/?p=hath.git;a=blobdiff_plain;f=src%2FOctet.hs;h=7faf1d7851c18ac864147c2b5220c568ffe1a5b4;hp=98fcb028771bfe387e6fc33c046ef27cd9aa54f7;hb=9200fe5fcab505e5a331514a6ee687c6f78011b1;hpb=6477e5a14e0fbd02750cf87dc21900525f63452f

diff --git a/src/Octet.hs b/src/Octet.hs
index 98fcb02..7faf1d7 100644
--- 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