From 873cfbeacd2c6c85169d2dbaac681606efc9dd40 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Wed, 22 Jan 2025 17:46:56 +0300
Subject: [PATCH] bugfix

---
 hbs2-git3/lib/HBS2/Git3/Import.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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