X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FOctet.hs;h=98fcb028771bfe387e6fc33c046ef27cd9aa54f7;hb=e2cb918f1808f7f54cc742418050d49b424848c5;hp=d80b796bd09eae8b0071b62a5cdcd81b3de45843;hpb=e9664c298771be252a788d5daf74e412240a3c78;p=hath.git

diff --git a/src/Octet.hs b/src/Octet.hs
index d80b796..98fcb02 100644
--- a/src/Octet.hs
+++ b/src/Octet.hs
@@ -53,7 +53,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