fix: adjust FFI buffer

2024-10-30 11:15:34 -05:00 · 2024-10-30 11:15:34 -05:00 · b3ec3aecbd
commit b3ec3aecbd
parent a8d4a96b8a
1 changed files with 16 additions and 15 deletions
--- a/src/ZcashHaskell/Utils.hs
+++ b/src/ZcashHaskell/Utils.hs
@ -135,21 +135,22 @@ createTransaction ::
  -> IO (Either TxError HexString)
 createTransaction sapAnchor orchAnchor tSpend sSpend oSpend outgoing znet bh build = do
  txResult <-
-    withBorshBufferOfInitSize 10240 $
-    rustWrapperCreateTx
-      (case sapAnchor of
-         Nothing -> "0"
-         Just sA -> toBytes $ sapTree sA)
-      (case orchAnchor of
-         Nothing -> "0"
-         Just oA -> toBytes $ orchTree oA)
-      tSpend
-      sSpend
-      oSpend
-      outgoing
-      (znet == MainNet)
-      (fromIntegral bh)
-      build
+    do print "calling FFI"
+       withBorshBufferOfInitSize 51200 $
+         rustWrapperCreateTx
+           (case sapAnchor of
+              Nothing -> "0"
+              Just sA -> toBytes $ sapTree sA)
+           (case orchAnchor of
+              Nothing -> "0"
+              Just oA -> toBytes $ orchTree oA)
+           tSpend
+           sSpend
+           oSpend
+           outgoing
+           (znet == MainNet)
+           (fromIntegral bh)
+           build
  if BS.length (hexBytes txResult) > 1
    then pure $ Right txResult
    else case head (BS.unpack $ hexBytes txResult) of