From 2602ecdbff3d0d33fb303ac5012631f93970b958 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Mon, 20 Jan 2025 16:13:40 +0300
Subject: [PATCH] wip, debug

---
 hbs2-git3/lib/HBS2/Git3/Import.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/hbs2-git3/lib/HBS2/Git3/Import.hs b/hbs2-git3/lib/HBS2/Git3/Import.hs
index 3f7c01f1..21ae145e 100644
--- a/hbs2-git3/lib/HBS2/Git3/Import.hs
+++ b/hbs2-git3/lib/HBS2/Git3/Import.hs
@@ -116,7 +116,14 @@ importGitRefLog :: forall m . ( HBS2GitPerks m
 
 importGitRefLog = do
 
-  updateReflogIndex
+  fix \next -> do
+    updateReflogIndex `catch` \case
+      MissedBlockError -> do
+        pause @'Seconds 2.0
+        warn "missed block on import"
+        next
+
+      e -> throwIO e
 
   packs <- gitDir
              >>= orThrowUser "git directory not found"