Allow for missing result in RPC response

This commit is contained in:
Rene Vergara 2024-03-20 14:16:12 -05:00
parent d1eaf1de4d
commit 517b736c9a
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
2 changed files with 2 additions and 1 deletions

View file

@ -10,6 +10,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
### Changed ### Changed
- Modified the `makeZebraCall` function to handle errors explicitly - Modified the `makeZebraCall` function to handle errors explicitly
- Modified the RPC response to handle missing `result` field
## [0.5.0.1] ## [0.5.0.1]

View file

@ -168,7 +168,7 @@ instance (FromJSON r) => FromJSON (RpcResponse r) where
withObject "RpcResponse" $ \obj -> do withObject "RpcResponse" $ \obj -> do
e <- obj .:? "error" e <- obj .:? "error"
i <- obj .: "id" i <- obj .: "id"
r <- obj .: "result" r <- obj .:? "result"
pure $ MakeRpcResponse e i r pure $ MakeRpcResponse e i r
-- | A type to model the errors from the Zcash RPC -- | A type to model the errors from the Zcash RPC