fixed

commit c07b0819e003399ddaeec781ea6a91e4684901b8
parent a70c1ead4aa734eb5d8683d8dcbe0cd5b5319a62
Author: Jared Tobin <jared@jtobin.io>
Date:   Sun, 23 Nov 2025 16:13:26 +0400

lib: comments re NOINLINE

Diffstat:
M
lib/Numeric/Montgomery/Secp256k1/Curve.hs
 | 
2
+-
M
lib/Numeric/Montgomery/Secp256k1/Scalar.hs
 | 
2
+-

2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/Numeric/Montgomery/Secp256k1/Curve.hs b/lib/Numeric/Montgomery/Secp256k1/Curve.hs
@@ -376,7 +376,7 @@ sqr# :: (# Word#, Word#, Word#, Word# #) -> (# Word#, Word#, Word#, Word# #)
 sqr# a =
   let !(# l, h #) = WW.sqr# a
   in  redc# l h
-{-# NOINLINE sqr# #-}
+{-# NOINLINE sqr# #-} -- cannot be inlined without exploding comp time
 
 sqr :: Montgomery -> Montgomery
 sqr (Montgomery a) = Montgomery (mul# a a)
diff --git a/lib/Numeric/Montgomery/Secp256k1/Scalar.hs b/lib/Numeric/Montgomery/Secp256k1/Scalar.hs
@@ -377,7 +377,7 @@ sqr# :: (# Word#, Word#, Word#, Word# #) -> (# Word#, Word#, Word#, Word# #)
 sqr# a =
   let !(# l, h #) = WW.sqr# a
   in  redc# l h
-{-# NOINLINE sqr# #-}
+{-# NOINLINE sqr# #-} -- cannot be inlined without exploding comp time
 
 sqr :: Montgomery -> Montgomery
 sqr (Montgomery a) = Montgomery (mul# a a)