src/ZcashHaskell/Utils.hs

@@ -135,7 +135,8 @@ createTransaction ::
   -> IO (Either TxError HexString)
 createTransaction sapAnchor orchAnchor tSpend sSpend oSpend outgoing znet bh build = do
   txResult <-
-    withBorshBufferOfInitSize 10240 $
+    do print "calling FFI"
+       withBorshBufferOfInitSize 51200 $
          rustWrapperCreateTx
            (case sapAnchor of
               Nothing -> "0"