Vergara_Tech
/
zcash-haskell
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 4 Wiki Activity

Commit for debuggin process 

Erros with Parameters for rustWrapperSaplingSpendingkey function
   x in Sapling.hs module
This commit is contained in:
Rene V. Vergara A. 2024-03-04 18:46:39 -05:00
parent 97b338bddc
commit a6c358cd5d
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/C/Zcash.chs
View File

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

4
src/ZcashHaskell/Sapling.hs
View File

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