From a6c358cd5d87d1c462bd8e612554f0ea047df3df Mon Sep 17 00:00:00 2001
From: "Rene V. Vergara" <rvergara59@protonmail.com>
Date: Mon, 4 Mar 2024 18:46:39 -0500
Subject: [PATCH] Commit for debuggin process

   Erros with Parameters for rustWrapperSaplingSpendingkey function
   x in Sapling.hs module
---
 src/C/Zcash.chs             | 7 +++++--
 src/ZcashHaskell/Sapling.hs | 4 +---
 2 files changed, 6 insertions(+), 5 deletions(-)

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