src/ZcashHaskell/Utils.hs

@@ -132,28 +132,8 @@ createTransaction ::
   -> ZcashNet -- ^ the network to be used
   -> Int -- ^ target block height
   -> Bool -- ^ True to build, False to estimate fee
-  -> Either TxError HexString
+  -> HexString
 createTransaction sapAnchor orchAnchor tSpend sSpend oSpend outgoing znet bh build =
-  processResult $! txResult
-  where
-    processResult :: HexString -> Either TxError HexString
-    processResult input
-      | BS.length (hexBytes input) > 1 = Right input
-      | otherwise =
-        case head (BS.unpack $ hexBytes input) of
-          0 -> Left InsufficientFunds
-          1 -> Left ChangeRequired
-          2 -> Left Fee
-          3 -> Left Balance
-          4 -> Left TransparentBuild
-          5 -> Left SaplingBuild
-          6 -> Left OrchardBuild
-          7 -> Left OrchardSpend
-          8 -> Left OrchardRecipient
-          9 -> Left SaplingBuilderNotAvailable
-          10 -> Left OrchardBuilderNotAvailable
-          _ -> Left ZHError
-    txResult =
   withPureBorshVarBuffer $
   rustWrapperCreateTx
     (case sapAnchor of