From 1880f3817a631c71d8b74fe70e900f61c0a9bee5 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Fri, 22 Nov 2024 08:39:38 +0300
Subject: [PATCH] wip-2

---
 hbs2-git3/app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hbs2-git3/app/Main.hs b/hbs2-git3/app/Main.hs
index b60601ac..77339ec7 100644
--- a/hbs2-git3/app/Main.hs
+++ b/hbs2-git3/app/Main.hs
@@ -545,7 +545,7 @@ theDict = do
                         inDb <- lift $ withState (selectGitPack co) <&> isJust
                         isDone <- readTVarIO done <&> HS.member co
 
-                        let already = inDb || isDone
+                        let already = isDone || inDb
 
                         if already
                           then next ExportGetCommit