From 0a98246855c13ba13605453a9c21283aecb56e64 Mon Sep 17 00:00:00 2001
From: "Rene V. Vergara" <rvergara59@protonmail.com>
Date: Thu, 14 Mar 2024 17:47:09 -0400
Subject: [PATCH] Transparent fix 2

---
 src/ZcashHaskell/Transparent.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ZcashHaskell/Transparent.hs b/src/ZcashHaskell/Transparent.hs
index fed2ae7..6c59edd 100644
--- a/src/ZcashHaskell/Transparent.hs
+++ b/src/ZcashHaskell/Transparent.hs
@@ -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