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

8
Logs/PreferredContent/Raw.hs
View file

@ -23,10 +23,14 @@ import Data.ByteString.Builder
{- Changes the preferred content configuration of a remote. -}
preferredContentSet :: UUID -> PreferredContentExpression -> Annex ()
preferredContentSet = setLog preferredContentLog
preferredContentSet u expr = do
setLog preferredContentLog u expr
Annex.changeState $ \st -> st { Annex.preferredcontentmap = Nothing }
requiredContentSet :: UUID -> PreferredContentExpression -> Annex ()
requiredContentSet = setLog requiredContentLog
requiredContentSet u expr = do
setLog requiredContentLog u expr
Annex.changeState $ \st -> st { Annex.requiredcontentmap = Nothing }
setLog :: RawFilePath -> UUID -> PreferredContentExpression -> Annex ()
setLog logfile uuid@(UUID _) val = do