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

wip-2

This commit is contained in:
voidlizard 2024-11-22 08:39:38 +03:00
parent fca8d74f8d
commit d51d947e56
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-git3/app/Main.hs
View File

@ -545,7 +545,7 @@ theDict = do
inDb <- lift $ withState (selectGitPack co) <&> isJust inDb <- lift $ withState (selectGitPack co) <&> isJust
isDone <- readTVarIO done <&> HS.member co isDone <- readTVarIO done <&> HS.member co
let already = inDb || isDone let already = isDone || inDb
if already if already
then next ExportGetCommit then next ExportGetCommit