Improve dependency on Haskoin for downstream

This commit is contained in:
Rene Vergara 2024-03-15 12:26:28 -05:00
parent d1b0436af2
commit bc1ee2430a
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
2 changed files with 6 additions and 1 deletions

View file

@ -35,6 +35,7 @@ import ZcashHaskell.Types
, Seed(..) , Seed(..)
, ToBytes(..) , ToBytes(..)
, TransparentAddress(..) , TransparentAddress(..)
, TransparentSpendingKey(..)
, TransparentType(..) , TransparentType(..)
, ZcashNet(..) , ZcashNet(..)
, getTransparentPrefix , getTransparentPrefix
@ -64,7 +65,7 @@ genTransparentPrvKey ::
Seed -- ^ The cryptographic seed of the wallet Seed -- ^ The cryptographic seed of the wallet
-> CoinType -- ^ The coin type constant to be used -> CoinType -- ^ The coin type constant to be used
-> AccountId -- ^ The index of the account to be used -> AccountId -- ^ The index of the account to be used
-> IO XPrvKey -> IO TransparentSpendingKey
genTransparentPrvKey hdseed ctype accid = do genTransparentPrvKey hdseed ctype accid = do
let coin = getValue ctype let coin = getValue ctype
ioCtx <- createContext ioCtx <- createContext

View file

@ -38,6 +38,7 @@ import Data.Word
import qualified GHC.Generics as GHC import qualified GHC.Generics as GHC
import qualified Generics.SOP as SOP import qualified Generics.SOP as SOP
import Haskoin.Address (Address) import Haskoin.Address (Address)
import Haskoin.Crypto.Keys.Extended (XPrvKey)
-- * General -- * General
-- --
@ -256,6 +257,9 @@ data TransparentType
| P2PKH | P2PKH
deriving (Eq, Prelude.Show, Read) deriving (Eq, Prelude.Show, Read)
-- | Type for transparent spending key
type TransparentSpendingKey = XPrvKey
-- | Type to represent a transparent Zcash addresses -- | Type to represent a transparent Zcash addresses
data TransparentAddress = TransparentAddress data TransparentAddress = TransparentAddress
{ ta_type :: !TransparentType { ta_type :: !TransparentType