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(..)
|
||||
, ToBytes(..)
|
||||
, TransparentAddress(..)
|
||||
, TransparentSpendingKey(..)
|
||||
, TransparentType(..)
|
||||
, ZcashNet(..)
|
||||
, getTransparentPrefix
|
||||
|
@ -64,7 +65,7 @@ genTransparentPrvKey ::
|
|||
Seed -- ^ The cryptographic seed of the wallet
|
||||
-> CoinType -- ^ The coin type constant to be used
|
||||
-> AccountId -- ^ The index of the account to be used
|
||||
-> IO XPrvKey
|
||||
-> IO TransparentSpendingKey
|
||||
genTransparentPrvKey hdseed ctype accid = do
|
||||
let coin = getValue ctype
|
||||
ioCtx <- createContext
|
||||
|
|
|
@ -38,6 +38,7 @@ import Data.Word
|
|||
import qualified GHC.Generics as GHC
|
||||
import qualified Generics.SOP as SOP
|
||||
import Haskoin.Address (Address)
|
||||
import Haskoin.Crypto.Keys.Extended (XPrvKey)
|
||||
|
||||
-- * General
|
||||
--
|
||||
|
@ -256,6 +257,9 @@ data TransparentType
|
|||
| P2PKH
|
||||
deriving (Eq, Prelude.Show, Read)
|
||||
|
||||
-- | Type for transparent spending key
|
||||
type TransparentSpendingKey = XPrvKey
|
||||
|
||||
-- | Type to represent a transparent Zcash addresses
|
||||
data TransparentAddress = TransparentAddress
|
||||
{ ta_type :: !TransparentType
|
||||
|
|
Loading…
Reference in a new issue