From 3cd16684515a93bbf985891ed8e9913382484fbf Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Thu, 14 Mar 2024 18:58:16 +0300
Subject: [PATCH] wip

---
 hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/Import.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/Import.hs b/hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/Import.hs
index fd758b41..f995c8c8 100644
--- a/hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/Import.hs
+++ b/hbs21-git/hbs2-git-client-lib/HBS2/Git/Client/Import.hs
@@ -95,6 +95,9 @@ importRepoWait lwwKey = do
 
         Just (LWWBlockData{..}) -> do
           void $ try @_ @SomeException (getRefLogMerkle lwwRefLogPubKey)
+          subscribeRefLog lwwRefLogPubKey
+          pause @'Seconds 0.25
+          getRefLogMerkle lwwRefLogPubKey
           next (IWaitRefLog 20 lwwRefLogPubKey)
 
     IWaitRefLog w puk | w <= 0 -> do