secp256k1

commit 2d95f50b098af1b5ca1fa321eed86b0e7c7780b5
parent 3ccb47ca88ee2a439e4d096c75bb83ebe0e07393
Author: Jared Tobin <jared@jtobin.io>
Date:   Wed, 22 Jan 2025 22:24:25 +0400

lib: use remP where applicable

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
@@ -347,8 +347,8 @@ modsqrtP n = runST $ do
         when (ev > 0) $ do
           when (I.integerTestBit ev 0) $ do
             numv <- readSTRef num
-            modifySTRef' r (\rv -> (rv * numv) `I.integerRem` _CURVE_P)
-          modifySTRef' num (\numv -> (numv * numv) `I.integerRem` _CURVE_P)
+            modifySTRef' r (\rv -> remP (rv * numv))
+          modifySTRef' num (\numv -> remP (numv * numv))
           modifySTRef' e (`I.integerShiftR` 1)
           loop