Fix call to `getblock`

2023-09-28 13:11:48 -05:00 · 2023-09-28 13:11:48 -05:00 · 85bf0fef59
parent a134947df6
commit 85bf0fef59
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