Vergara_Tech/zgo-backend
Vergara_Tech/zgo-backend
2
1
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Fix call to getblock

Browse source
This commit is contained in:
Rene Vergara 2023-09-28 13:11:48 -05:00
parent a134947df6
commit 85bf0fef59
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/ZGoBackend.hs
View file

@ -1805,7 +1805,12 @@ generateToken = do
getBlockInfo :: getBlockInfo ::
BS.ByteString -> BS.ByteString -> SC.Scientific -> IO (Maybe BlockResponse) BS.ByteString -> BS.ByteString -> SC.Scientific -> IO (Maybe BlockResponse)
getBlockInfo nodeUser nodePwd bh = do getBlockInfo nodeUser nodePwd bh = do
blockInfo <- makeZcashCall nodeUser nodePwd "getblock" [Number bh] blockInfo <-
makeZcashCall
nodeUser
nodePwd
"getblock"
[Number bh, Number $ SC.scientific 1 0]
let content = getResponseBody blockInfo :: RpcResponse BlockResponse let content = getResponseBody blockInfo :: RpcResponse BlockResponse
if isNothing (err content) if isNothing (err content)
then return $ result content then return $ result content