secp256k1

commit c8fbf988ed98a0481d5680fe24f578cf53732b1f
parent 028eb2f53a3449c63372914d1e771c60e146a823
Author: Jared Tobin <jared@jtobin.io>
Date:   Sun, 21 Dec 2025 17:17:42 -0330

lib: remove spurious bangs

Diffstat:
M
lib/Crypto/Curve/Secp256k1.hs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/Crypto/Curve/Secp256k1.hs b/lib/Crypto/Curve/Secp256k1.hs
@@ -700,8 +700,8 @@ mul_vartime p = \case
       Zero -> r
       m ->
         let !nd = double d
-            !(# !nm, !lsb_set #) = W.shr1_c m
-            !nr = if CT.decide lsb_set then add r d else r -- XX
+            !(# nm, lsb_set #) = W.shr1_c m
+            !nr = if CT.decide lsb_set then add r d else r
         in  loop nr nd nm
 
 -- | Precomputed multiples of the secp256k1 base or generator point.