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

invalidate caches after log changes

Browse source 
This seems like something Annex.Sim would need to happen. And generally
a really good idea.
This commit is contained in:
Joey Hess 2024-09-20 16:52:17 -04:00
parent f5f7b4a936
commit a194e88a62
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Logs/NumCopies.hs
View file

@ -36,12 +36,14 @@ setGlobalNumCopies new = do
curr <- getGlobalNumCopies
when (curr /= Just new) $
setLog (Annex.Branch.RegardingUUID []) numcopiesLog new
Annex.changeState $ \s -> s { Annex.globalnumcopies = Nothing }
setGlobalMinCopies :: MinCopies -> Annex ()
setGlobalMinCopies new = do
curr <- getGlobalMinCopies
when (curr /= Just new) $
setLog (Annex.Branch.RegardingUUID []) mincopiesLog new
Annex.changeState $ \s -> s { Annex.globalmincopies = Nothing }
{- Value configured in the numcopies log. Cached for speed. -}
getGlobalNumCopies :: Annex (Maybe NumCopies)