Improve dependency on Haskoin for downstream
This commit is contained in:
parent
d1b0436af2
commit
bc1ee2430a
2 changed files with 6 additions and 1 deletions
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue