src/ZcashHaskell/Transparent.hs

@@ -35,7 +35,6 @@ import ZcashHaskell.Types
   , Seed(..)
   , ToBytes(..)
   , TransparentAddress(..)
-  , TransparentSpendingKey(..)
   , TransparentType(..)
   , ZcashNet(..)
   , getTransparentPrefix
@@ -65,7 +64,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 TransparentSpendingKey
+  -> IO XPrvKey
 genTransparentPrvKey hdseed ctype accid = do
   let coin = getValue ctype
   ioCtx <- createContext

src/ZcashHaskell/Types.hs

@@ -38,7 +38,6 @@ 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
 --
@@ -257,9 +256,6 @@ 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