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

debug

This commit is contained in:
voidlizard 2025-01-21 11:21:42 +03:00
parent bdc9fb80b3
commit d9cd91398a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-git3/lib/HBS2/Git3/State.hs
View File

@ -241,6 +241,10 @@ waitRepo timeout = do
Just (Just x) -> pure x Just (Just x) -> pure x
_ -> wait 2 next () _ -> wait 2 next ()
notice $ "lwwref value" <+> pretty (lwwValue lww)
error "stop"
mf <- flip fix () $ \next _ -> do mf <- flip fix () $ \next _ -> do
notice $ "wait for manifest" notice $ "wait for manifest"
lift (try @_ @WalkMerkleError getRepoManifest) >>= \case lift (try @_ @WalkMerkleError getRepoManifest) >>= \case