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

Add block hash to BlockResponse #93

Merged
pitmutt merged 2 commits from rav001 into milestone2 2024-09-23 15:19:31 +00:00
Conversation 0 Commits 2 Files changed 1 +4 -2
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit f24ea80cde - Show all commits

6
src/ZcashHaskell/Types.hs
View file

@ -256,7 +256,8 @@ instance FromJSON RpcError where
-- ** `zcashd`
-- | Type to represent response from the `zcashd` RPC `getblock` method
data BlockResponse = BlockResponse
{ bl_confirmations :: !Integer -- ^ Block confirmations
{ bl_hash :: !HexString
, bl_confirmations :: !Integer -- ^ Block confirmations
, bl_height :: !Integer -- ^ Block height
, bl_time :: !Integer -- ^ Block time
, bl_txs :: ![HexString] -- ^ List of transaction IDs in the block
@ -269,7 +270,8 @@ instance FromJSON BlockResponse where
h <- obj .: "height"
t <- obj .:? "time"
txs <- obj .: "tx"
pure $ BlockResponse c h (fromMaybe 0 t) txs
hash <- obj .: "hash"
pure $ BlockResponse hash c h (fromMaybe 0 t) txs
-- | Type to represent response from the `zcashd` RPC `getrawtransaction`
data RawTxResponse = RawTxResponse