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

wip, bugfix

This commit is contained in:
voidlizard 2025-01-22 20:15:25 +03:00
parent 873cfbeacd
commit a240bc23f0
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -138,6 +138,7 @@ importGitRefLog = withStateDo $ ask >>= \case
flip fix ImportStart $ \again -> \case flip fix ImportStart $ \again -> \case
ImportDone x -> do ImportDone x -> do
notice "import done"
for_ x updateImportedCheckpoint for_ x updateImportedCheckpoint
updateReflogIndex updateReflogIndex
pure x pure x
@ -151,11 +152,9 @@ importGitRefLog = withStateDo $ ask >>= \case
notice $ "wait some time..." <+> parens (pretty down) notice $ "wait some time..." <+> parens (pretty down)
case d of case d of
Just n | down < n -> pause @'Seconds 3 >> again next Just n | down < n || down == 0 -> again next
_ -> pure Nothing
pause @'Seconds 3 _ -> pause @'Seconds 3 >> again (ImportWait (Just down) next)
again $ ImportWait (Just down) next
ImportStart -> do ImportStart -> do
@ -225,8 +224,8 @@ importGitRefLog = withStateDo $ ask >>= \case
case r of case r of
Right cp -> again $ ImportDone cp Right cp -> again $ ImportDone cp
Left (MissedBlockError2 _) -> again $ ImportWait Nothing (ImportWIP (succ attempt) prev) Left (MissedBlockError2 _) -> notice "missed blocks" >> again (ImportWait Nothing (ImportWIP (succ attempt) prev))
Left MissedBlockError -> again $ ImportWait Nothing (ImportWIP (succ attempt) prev) Left MissedBlockError -> notice "missed blocks" >> again (ImportWait Nothing (ImportWIP (succ attempt) prev))
Left e -> throwIO e Left e -> throwIO e