diff --git a/hbs2-git3/lib/HBS2/Git3/Import.hs b/hbs2-git3/lib/HBS2/Git3/Import.hs index 34d04798..c78702dc 100644 --- a/hbs2-git3/lib/HBS2/Git3/Import.hs +++ b/hbs2-git3/lib/HBS2/Git3/Import.hs @@ -151,9 +151,11 @@ importGitRefLog = withStateDo $ ask >>= \case notice $ "wait some time..." <+> parens (pretty down) case d of - Nothing -> again (ImportWait (Just down) 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