Vergara_Tech/zcash-haskell
2
0
Fork 0
Code Issues Pull requests Projects Releases 5 Packages Wiki Activity

Correct JSON parser for raw Tx

Browse source
This commit is contained in:
Rene Vergara 2023-09-28 13:56:31 -05:00
parent d78c269d96
commit cbbbaa0fd0
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 17 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/ZcashHaskell/Sapling.hs
View file

@ -48,12 +48,21 @@ instance FromJSON RawTxResponse where
parseJSON = parseJSON =
withObject "RawTxResponse" $ \obj -> do withObject "RawTxResponse" $ \obj -> do
i <- obj .: "txid" i <- obj .: "txid"
o <- obj .: "orchard" o <- obj .:? "orchard"
h <- obj .: "hex" h <- obj .: "hex"
a <- o .: "actions" case o of
pure $ Nothing ->
RawTxResponse pure $
i RawTxResponse
(decodeHexText h) i
(getShieldedOutputs (decodeHexText h)) (decodeHexText h)
a (getShieldedOutputs (decodeHexText h))
[]
Just o' -> do
a <- o' .: "actions"
pure $
RawTxResponse
i
(decodeHexText h)
(getShieldedOutputs (decodeHexText h))
a