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