Merge branch 'rav001' into rvv001

- Fix resync process
This commit is contained in:
Rene V. Vergara A. 2024-10-25 13:40:15 -04:00
commit 9cee6e79cf

View file

@ -125,7 +125,16 @@ getCommitmentTrees ::
getCommitmentTrees pool nodeHost nodePort znet block = do
bh' <- getBlockHash pool block znet
case bh' of
Nothing -> throwIO $ userError "couldn't get block hash"
Nothing -> do
r <-
makeZebraCall
nodeHost
nodePort
"z_gettreestate"
[Data.Aeson.String $ T.pack $ show block]
case r of
Left e -> throwIO $ userError e
Right zti -> return zti
Just bh -> do
r <-
makeZebraCall