Correct JSON parser for raw Tx

2023-09-28 13:56:31 -05:00 · 2023-09-28 13:56:31 -05:00 · cbbbaa0fd0
commit cbbbaa0fd0
parent d78c269d96
1 changed files with 17 additions and 8 deletions
--- a/src/ZcashHaskell/Sapling.hs
+++ b/src/ZcashHaskell/Sapling.hs
@ -48,9 +48,18 @@ instance FromJSON RawTxResponse where
  parseJSON =
    withObject "RawTxResponse" $ \obj -> do
      i <- obj .: "txid"
-      o <- obj .: "orchard"
+      o <- obj .:? "orchard"
      h <- obj .: "hex"
-      a <- o .: "actions"
+      case o of
+        Nothing ->
+          pure $
+          RawTxResponse
+            i
+            (decodeHexText h)
+            (getShieldedOutputs (decodeHexText h))
+            []
+        Just o' -> do
+          a <- o' .: "actions"
          pure $
            RawTxResponse
              i