Fix call to getblock

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