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

Addition of functinality for manipulating Unified Addresses and Viewing Keys #1

Merged
pitmutt merged 17 commits from dev020 into master 2023-12-04 16:31:17 +00:00
Conversation 0 Commits 17 Files changed 12 +17 -8
1 changed files with 17 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit cbbbaa0fd0 - Show all commits

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