sha512

commit 3c6ef3b1d6d7bedb824f09d00ce7c0a8112d24ca
parent 2084475622d31bc6b0f954c76aa8b605e1abdc32
Author: Jared Tobin <jared@jtobin.io>
Date:   Sun, 13 Oct 2024 13:49:08 +0400

lib: add inline pragma to step

Diffstat:
M
lib/Crypto/Hash/SHA512.hs
 | 
1
+

1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/lib/Crypto/Hash/SHA512.hs b/lib/Crypto/Hash/SHA512.hs
@@ -421,6 +421,7 @@ step (Registers a b c d e f g h) k w =
   let t1 = h + bsig1 e + ch e f g + k + w
       t2 = bsig0 a + maj a b c
   in  Registers (t1 + t2) a b c (d + t1) e f g
+{-# INLINE step #-}
 
 -- RFC 6234 6.2 block pipeline
 --