From a79e92856c5fcb87ec4e0ecaee32110c99959a4e Mon Sep 17 00:00:00 2001 From: joe Date: Fri, 16 Jun 2017 01:38:21 -0400 Subject: Fixed off-by-one error in Data.Bits-based testIdBit. --- src/Network/Address.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Network') diff --git a/src/Network/Address.hs b/src/Network/Address.hs index e4ec09b4..0fbd191a 100644 --- a/src/Network/Address.hs +++ b/src/Network/Address.hs @@ -566,7 +566,7 @@ testIdBit (NodeId bs) i -} testIdBit :: FiniteBits bs => bs -> Word -> Bool -testIdBit bs i = testBit bs (fromIntegral (finiteBitSize bs - fromIntegral i)) +testIdBit bs i = testBit bs (fromIntegral (finiteBitSize bs - 1 - fromIntegral i)) {-# INLINE testIdBit #-} ------------------------------------------------------------------------ -- cgit v1.2.3