Fixed the value of (octet_from_int 128).

diff --git a/src/Octet.hs b/src/Octet.hs
index bdada65ab1b8e11bb52d95bdf33a7a25d4ce751c..e2e01ea93eadbc9d72d06a522c562227596fdced 100644 (file)
--- 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