src/ZcashHaskell/Transparent.hs

@@ -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

src/ZcashHaskell/Types.hs

@@ -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