secp256k1

commit 7eb67e71d6c8044abf1a2cf31e62245c6429400a
parent 7daccfe88c89c5cc6a5d32fd5a3a7bc4fa7f3513
Author: Jared Tobin <jared@jtobin.io>
Date:   Mon, 14 Oct 2024 15:15:31 +0400

lib: typo

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

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Crypto/Curve/Secp256k1.hs b/lib/Crypto/Curve/Secp256k1.hs
@@ -669,7 +669,7 @@ sign_schnorr
 sign_schnorr d' m a
   | not (ge d') = error "ppad-secp256k1 (sign_schnorr): invalid secret key"
   | otherwise  =
-      let p@(Affine x_p y_p) = affine (mul _CURVE_G d)
+      let p@(Affine x_p y_p) = affine (mul _CURVE_G d')
           d | y_p `rem` 2 == 0 = d'
             | otherwise = _CURVE_Q - d'