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