2023-10-28 12:24:28 +00:00
1 changed files with 6 additions and 1 deletions
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@ -1805,7 +1805,12 @@ generateToken = do
 getBlockInfo ::
     BS.ByteString -> BS.ByteString -> SC.Scientific -> IO (Maybe BlockResponse)
 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
  if isNothing (err content)
    then return $ result content