Improve dependency on Haskoin for downstream #38

Merged
pitmutt merged 2 commits from rav001 into dev040 2024-03-15 17:30:15 +00:00
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