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

wip, debug

This commit is contained in:
voidlizard 2025-01-20 16:13:40 +03:00
parent f50311bd03
commit 2602ecdbff
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hbs2-git3/lib/HBS2/Git3/Import.hs
View File

@ -116,7 +116,14 @@ importGitRefLog :: forall m . ( HBS2GitPerks m
importGitRefLog = do 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 packs <- gitDir
>>= orThrowUser "git directory not found" >>= orThrowUser "git directory not found"