fix: correct commitment tree function

This commit is contained in:
Rene Vergara 2024-10-25 12:36:24 -05:00
parent 183b4adf91
commit 28a75895f4
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2

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