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

update Annex.reposizes when changing location logs

Browse source 
The live update is only needed when Annex.reposizes has already been
populated.
This commit is contained in:
Joey Hess 2024-08-15 13:27:14 -04:00
parent c376b1bd7e
commit 06064f897c
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
8 changed files with 69 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Logs/Presence.hs
View file

@ -49,8 +49,10 @@ addLog' ru file logstatus loginfo c =
{- When a LogLine already exists with the same status and info, but an
- older timestamp, that LogLine is preserved, rather than updating the log
- with a newer timestamp.
-
- Returns True when the log was changed.
-}
maybeAddLog :: Annex.Branch.RegardingUUID -> RawFilePath -> LogStatus -> LogInfo -> Annex ()
maybeAddLog :: Annex.Branch.RegardingUUID -> RawFilePath -> LogStatus -> LogInfo -> Annex Bool
maybeAddLog ru file logstatus loginfo = do
c <- currentVectorClock
Annex.Branch.maybeChange ru file $ \b ->