From d74254fd2a30214d7a8e4b9c407a6ec4fd6fed7f Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sun, 9 May 2010 15:34:33 -0400 Subject: [PATCH] Fixed the value of (octet_from_int 128). --- src/Octet.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.43.2