CurveConstants.hs

module Network.EasyBitcoin.Internal.CurveConstants 
 where



--  SECP256k1 curve parameters
pairG    :: (Integer, Integer)
pairG    = ( 0x79be667ef9dcbbac55a06295ce870b07029bfcdb2dce28d959f2815b16f81798
           , 0X483ada7726a3c4655da4fbfc0e1108a8fd17b448a68554199c47d08ffb10d4b8
           )
curveP   :: Integer
curveP   = 0xfffffffffffffffffffffffffffffffffffffffffffffffffffffffefffffc2f

curveN   :: Integer
curveN   = 0xfffffffffffffffffffffffffffffffebaaedce6af48a03bbfd25e8cd0364141

integerB :: Integer
integerB = 7

integerA :: Integer
integerA = 0