module Legacy.Haskoin.V0102.Network.Haskoin.Crypto.Curve
  ( pairG
  , curveP
  , curveN
  , integerB
  , integerA
  ) 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