@@ -51,8 +51,8 @@ generateNamed namespace object =
51 SHA1.Word160 w1 w2 w3 w4 w5 = SHA1.hash chunk
51 SHA1.Word160 w1 w2 w3 w4 w5 = SHA1.hash chunk
54− tm = low16 w2
54+ tm = high16 w2
55− th = (versionSHA .|.) $ (versionMask .&.) $ high16 w2
55+ th = (versionSHA .|.) $ (versionMask .&.) $ low16 w2
56 ch = (reserved .|.) $ (reservedMask .&.) $ high8 $ high16 w3
56 ch = (reserved .|.) $ (reservedMask .&.) $ high8 $ high16 w3
57 cl = low8 $ high16 w3
57 cl = low8 $ high16 w3
58 node = Node (high8 (low16 w3))
58 node = Node (high8 (low16 w3))
@@ -79,7 +79,7 @@ low8 :: Word16 -> Word8
79low8 = fromIntegral . (.&. 0x00FF)
79low8 = fromIntegral . (.&. 0x00FF)
81high8 :: Word16 -> Word8
81high8 :: Word16 -> Word8
82−high8 = fromIntegral . flip shiftR 4
82+high8 = fromIntegral . flip shiftR 8
84versionSHA = shiftL 12 5
84versionSHA = shiftL 12 5