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

Functions to handle commitment tree nodes for Sapling and Orchard #100

Merged
pitmutt merged 50 commits from rav001 into milestone2 2024-11-15 18:48:36 +00:00
Conversation 0 Commits 50 Files changed 9 +16 -15
1 changed files with 16 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit b3ec3aecbd - Show all commits

31
src/ZcashHaskell/Utils.hs
View file

@ -135,21 +135,22 @@ createTransaction ::
-> IO (Either TxError HexString) -> IO (Either TxError HexString)
createTransaction sapAnchor orchAnchor tSpend sSpend oSpend outgoing znet bh build = do createTransaction sapAnchor orchAnchor tSpend sSpend oSpend outgoing znet bh build = do
txResult <- txResult <-
withBorshBufferOfInitSize 10240 $ do print "calling FFI"
rustWrapperCreateTx withBorshBufferOfInitSize 51200 $
(case sapAnchor of rustWrapperCreateTx
Nothing -> "0" (case sapAnchor of
Just sA -> toBytes $ sapTree sA) Nothing -> "0"
(case orchAnchor of Just sA -> toBytes $ sapTree sA)
Nothing -> "0" (case orchAnchor of
Just oA -> toBytes $ orchTree oA) Nothing -> "0"
tSpend Just oA -> toBytes $ orchTree oA)
sSpend tSpend
oSpend sSpend
outgoing oSpend
(znet == MainNet) outgoing
(fromIntegral bh) (znet == MainNet)
build (fromIntegral bh)
build
if BS.length (hexBytes txResult) > 1 if BS.length (hexBytes txResult) > 1
then pure $ Right txResult then pure $ Right txResult
else case head (BS.unpack $ hexBytes txResult) of else case head (BS.unpack $ hexBytes txResult) of