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
Showing only changes of commit cbbbaa0fd0 - Show all commits

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