diff --git a/src/C/Zcash.chs b/src/C/Zcash.chs
index bfaab7b..0526a45 100644
--- a/src/C/Zcash.chs
+++ b/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)'&
      }
   -> `()'
-#}
+#}
\ No newline at end of file
diff --git a/src/ZcashHaskell/Sapling.hs b/src/ZcashHaskell/Sapling.hs
index a0ca034..1f564f9 100644
--- a/src/ZcashHaskell/Sapling.hs
+++ b/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) params 
+    res = (withPureBorshVarBuffer . rustWrapperSaplingSpendingkey) seed coin_type account_id