sha256

commit 950ecaf4a78ab287d8e47120ee8412043bbad031
parent 3ab45acf8532f35698ecb864c71ca3b2ac1de419
Author: Jared Tobin <jared@jtobin.io>
Date:   Wed, 11 Sep 2024 21:05:00 +0400

lib: remove redundant bang

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

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Crypto/Hash/SHA256.hs b/lib/Crypto/Hash/SHA256.hs
@@ -291,7 +291,7 @@ prepare_schedule Block {..} = Schedule {..} where
 -- RFC 6234 6.2 steps 2, 3, 4
 block_hash :: Registers -> Schedule -> Registers
 block_hash r@Registers {..} s = loop 0 r where
-  loop t !(Registers a b c d e f g h)
+  loop t (Registers a b c d e f g h)
     | t == 64 = Registers {
           h0 = a + h0, h1 = b + h1, h2 = c + h2, h3 = d + h3
         , h4 = e + h4, h5 = f + h5, h6 = g + h6, h7 = h + h7