X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FOctet.hs;h=e2e01ea93eadbc9d72d06a522c562227596fdced;hb=d74254fd2a30214d7a8e4b9c407a6ec4fd6fed7f;hp=bdada65ab1b8e11bb52d95bdf33a7a25d4ce751c;hpb=d1e7f72b70cfe4c1a5c5eb6e7773888506833131;p=hath.git

diff --git a/src/Octet.hs b/src/Octet.hs
index bdada65..e2e01ea 100644
--- a/src/Octet.hs
+++ b/src/Octet.hs
@@ -42,7 +42,7 @@ octet_from_int x
     | (x < 0) || (x > 255) = Octet.None
     | otherwise = (Octet a1 a2 a3 a4 a5 a6 a7 a8)
     where
-      a1 = if (x > 128) then One else Zero
+      a1 = if (x >= 128) then One else Zero
       a2 = if ((x `mod` 128) >= 64) then One else Zero
       a3 = if ((x `mod` 64)  >= 32) then One else Zero
       a4 = if ((x `mod` 32)  >= 16) then One else Zero