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"