Vergara_Tech/zcash-haskell
2
0
Fork 0
Code Issues Pull requests Releases 7 Wiki Activity

Transparent fix 2

Browse source
This commit is contained in:
Rene V. Vergara A. 2024-03-14 17:47:09 -04:00
parent 2c58d1260a
commit 0a98246855
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/ZcashHaskell/Transparent.hs
View file

@ -59,7 +59,7 @@ genTransparentPrvKey :: Seed -> CoinType -> AccountId -> IO XPrvKey
genTransparentPrvKey hdseed ctype accid = do
let coin = getValue ctype
ioCtx <- createContext
let path = Deriv :| 44 :| 133 :| coin :/ 0 :/ 0 :: DerivPath
let path = Deriv :| 44 :| coin :| AccounId :/ 0 :/ 0 :: DerivPath
let prvKey = makeXPrvKey hdseed
return $ derivePath ioCtx path prvKey