sha256

commit 50ea6cd0bd95dba98d66baa3470e05db9e76da59
parent ae9e0b6d12d89a0e12cba3fc9347a1b2e858874a
Author: Jared Tobin <jared@jtobin.io>
Date:   Sun,  6 Oct 2024 20:48:04 +0400

lib: haddock hmac args

Diffstat:
M
lib/Crypto/Hash/SHA256.hs
 | 
5
++++-

1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lib/Crypto/Hash/SHA256.hs b/lib/Crypto/Hash/SHA256.hs
@@ -450,7 +450,10 @@ data KeyAndLen = KeyAndLen
 --
 --   >>> hmac_lazy "strict bytestring key" "lazy bytestring input"
 --   "<strict 256-bit MAC>"
-hmac_lazy :: BS.ByteString -> BL.ByteString -> BS.ByteString
+hmac_lazy
+  :: BS.ByteString -- ^ key
+  -> BL.ByteString -- ^ text
+  -> BS.ByteString
 hmac_lazy mk text =
     let step1 = k <> BS.replicate (64 - lk) 0x00
         step2 = BS.map (B.xor 0x36) step1