src/C/Zcash.chs

@@ -127,7 +127,10 @@ import ZcashHaskell.Types
 #}
 
 {# fun unsafe rust_wrapper_sapling_spendingkey as rustWrapperSaplingSpendingkey
-     { toBorshVar* `SaplingSKeyParams'&
+     { toBorshVar* `BS.ByteString'&
+     , toBorshFixed Int
+     , toBorshFixed Int
+     , getVarBuffer `Buffer (BS.ByteString)'&
      }
   -> `()'
 #}

src/ZcashHaskell/Sapling.hs

@@ -42,7 +42,6 @@ import ZcashHaskell.Types
   , SaplingSKeyParams(..)
   )
 import ZcashHaskell.Utils 
-
 import Data.Word
 
 -- | Check if given bytesting is a valid encoded shielded address
@@ -98,6 +97,5 @@ genSaplingSpendingKey seed coin_type account_id = do
     then Just res
     else Nothing
   where
-    let params = SaplingSKeyParams seed coin_type account_id
+    res = (withPureBorshVarBuffer . rustWrapperSaplingSpendingkey) seed coin_type account_id 
-    res = (withPureBorshVarBuffer . rustWrapperSaplingSpendingkey) params