Sapling Spending keys and receivers #27

Merged
pitmutt merged 12 commits from rvv040 into dev040 2024-03-10 15:07:10 +00:00
2 changed files with 6 additions and 5 deletions
Showing only changes of commit a6c358cd5d - Show all commits

View file

@ -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)'&
}
-> `()'
#}

View file

@ -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