fix: correct commitment tree function
This commit is contained in:
parent
183b4adf91
commit
28a75895f4
1 changed files with 10 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue