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

wip

This commit is contained in:
voidlizard 2025-01-20 15:44:07 +03:00
parent 99c9168fb6
commit f50311bd03
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hbs2-git3/app/GitRemoteHelper.hs
View File

@ -112,7 +112,15 @@ localDict DeferredOps{..} = makeDict @C do
debug $ red "REFLOG" <+> pretty (AsBase58 reflog) debug $ red "REFLOG" <+> pretty (AsBase58 reflog)
importGitRefLog t0 <- getTimeCoarse
flip fix 0 $ \next i -> do
importGitRefLog >>= \case
Just{} -> none
Nothing -> do
notice "wait for data..."
pause @'Seconds 2.0
next (succ i)
rrefs <- importedRefs rrefs <- importedRefs

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

@ -112,7 +112,7 @@ importGitRefLog :: forall m . ( HBS2GitPerks m
, HasGitRemoteKey m , HasGitRemoteKey m
, MonadReader Git3Env m , MonadReader Git3Env m
) )
=> m () => m (Maybe HashRef)
importGitRefLog = do importGitRefLog = do
@ -145,7 +145,7 @@ importGitRefLog = do
else do else do
next (xs, l) next (xs, l)
void $ runMaybeT do runMaybeT do
cp <- toMPlus cp' cp <- toMPlus cp'
notice $ "found checkpoint" <+> pretty cp notice $ "found checkpoint" <+> pretty cp
txs <- lift $ txList ( pure . not . flip HS.member excl ) (Just cp) txs <- lift $ txList ( pure . not . flip HS.member excl ) (Just cp)
@ -164,3 +164,5 @@ importGitRefLog = do
updateImportedCheckpoint cp updateImportedCheckpoint cp
pure cp