voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

read objects by ref

This commit is contained in:
Dmitry Zuikov 2023-01-13 09:59:39 +03:00
parent 05e8ccdcfc
commit 0ebfe367b0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2/Main.hs
View File

@ -90,9 +90,9 @@ runCat opts ss = do
mhash <- MaybeT $ pure $ uniLastMay @MerkleHash opts <&> fromMerkleHash mhash <- MaybeT $ pure $ uniLastMay @MerkleHash opts <&> fromMerkleHash
some <- MaybeT $ getBlock ss mhash obj <- MaybeT $ getBlock ss mhash
let mbLink = deserialiseOrFail @AnnotatedHashRef some let mbLink = deserialiseOrFail @AnnotatedHashRef obj
realHash <- MaybeT $ case mbLink of realHash <- MaybeT $ case mbLink of
Left _ -> pure $ Just mhash Left _ -> pure $ Just mhash