From d9cd91398a83ffd105ba25f30dd9d8da926d4448 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Tue, 21 Jan 2025 11:21:42 +0300 Subject: [PATCH] debug --- hbs2-git3/lib/HBS2/Git3/State.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/hbs2-git3/lib/HBS2/Git3/State.hs b/hbs2-git3/lib/HBS2/Git3/State.hs index eee0d216..5d4d5c98 100644 --- a/hbs2-git3/lib/HBS2/Git3/State.hs +++ b/hbs2-git3/lib/HBS2/Git3/State.hs @@ -241,6 +241,10 @@ waitRepo timeout = do Just (Just x) -> pure x _ -> wait 2 next () + notice $ "lwwref value" <+> pretty (lwwValue lww) + + error "stop" + mf <- flip fix () $ \next _ -> do notice $ "wait for manifest" lift (try @_ @WalkMerkleError getRepoManifest) >>= \case