invalidate caches after log changes

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

View file

@ -39,6 +39,7 @@ recordMaxSize uuid maxsize = do
(buildLogNew buildMaxSize)
. changeLog c uuid maxsize
. parseLogNew parseMaxSize
Annex.changeState $ \s -> s { Annex.maxsizes = Nothing }
buildMaxSize :: MaxSize -> Builder
buildMaxSize (MaxSize n) = byteString (encodeBS (show n))