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

Sapling Spending keys and receivers #27

Merged
pitmutt merged 12 commits from rvv040 into dev040 2024-03-10 15:07:10 +00:00
Conversation 0 Commits 12 Files changed 8 +6 -5
2 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit a6c358cd5d - Show all commits

5
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