mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

calcBranchRepoSizes without journal files

Browse source 
This will be used to prime the RepoSizes database, which will always
contain values that correpond to information in the git-annex branch, so
without anything from journal files.

Factored out overJournalFileContents which will later be used to
update Annex.reposizes to include information from journal files.
This will be partitcularly important to support private UUIDs which only
ever get to journal files and not to the branch.
This commit is contained in:
Joey Hess 2024-08-14 03:19:30 -04:00
parent 90a79a6c1e
commit 8ac2685b33
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
8 changed files with 103 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Database/ImportFeed.hs
View file

@ -187,9 +187,9 @@ updateFromLog db@(ImportFeedDbHandle h) (oldtree, currtree)
-- When initially populating the database, this
-- is faster than diffing from the empty tree
-- and looking up every log file.
scanbranch = Annex.Branch.overBranchFileContents toscan False goscan >>= \case
Annex.Branch.NoUnmergedBranches () -> return ()
Annex.Branch.UnmergedBranches () -> scandiff
scanbranch = Annex.Branch.overBranchFileContents False toscan goscan >>= \case
Annex.Branch.NoUnmergedBranches ((), _) -> return ()
Annex.Branch.UnmergedBranches ((), _) -> scandiff
toscan f
| isUrlLog f = Just ()