fix: correct transaction creation

2024-10-29 14:14:39 -05:00 · 2024-10-29 14:14:39 -05:00 · 1694898117
commit 1694898117
parent 5139f9dd7b
1 changed files with 16 additions and 16 deletions
--- a/src/ZcashHaskell/Utils.hs
+++ b/src/ZcashHaskell/Utils.hs
@ -137,10 +137,10 @@ createTransaction sapAnchor orchAnchor tSpend sSpend oSpend outgoing znet bh bui
  processResult $! txResult
  where
    processResult :: HexString -> Either TxError HexString
-    processResult input =
-      if BS.length (hexBytes input) > 1
-        then Right input
-        else case head (BS.unpack $ hexBytes input) of
+    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