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

bugfix

This commit is contained in:
voidlizard 2025-01-22 17:46:56 +03:00
parent 9c1dad1c5e
commit 873cfbeacd
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -151,9 +151,11 @@ importGitRefLog = withStateDo $ ask >>= \case
notice $ "wait some time..." <+> parens (pretty down) notice $ "wait some time..." <+> parens (pretty down)
case d of case d of
Nothing -> again (ImportWait (Just down) next)
Just n | down < n -> pause @'Seconds 3 >> again next Just n | down < n -> pause @'Seconds 3 >> again next
| otherwise -> pause @'Seconds 3 >> again next _ -> pure Nothing
pause @'Seconds 3
again $ ImportWait (Just down) next
ImportStart -> do ImportStart -> do