sha512

commit ba7757cf61132cf3c3d79960f51ddaf4801f7aec
parent 77931566c41dd82b17b8e69970d098f6827c9301
Author: Jared Tobin <jared@jtobin.io>
Date:   Tue, 24 Jun 2025 07:36:13 +0400

lib: axe comment

Unimportant case, does not come up in practice.

Diffstat:
M
lib/Crypto/Hash/SHA512.hs
 | 
2
--

1 file changed, 0 insertions(+), 2 deletions(-)
diff --git a/lib/Crypto/Hash/SHA512.hs b/lib/Crypto/Hash/SHA512.hs
@@ -121,8 +121,6 @@ sol l =
   let r = 112 - fi l `rem` 128 - 1 :: Integer -- fi prevents underflow
   in  fi (if r < 0 then r + 128 else r)
 
--- XX doesn't properly handle (> maxBound :: Word64) length
-
 -- RFC 6234 4.1 (strict)
 pad :: BS.ByteString -> BS.ByteString
 pad m@(BI.PS _ _ (fi -> l))