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

add a finalizer to streamLogFile

Browse source 
Sponsored-by: Dartmouth College's DANDI project
This commit is contained in:
Joey Hess 2022-09-23 13:49:01 -04:00
parent 8718125ae4
commit ed8afacc39
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Logs/Smudge.hs
View file

@ -34,7 +34,7 @@ streamSmudged :: (Key -> TopFilePath -> Annex ()) -> Annex ()
streamSmudged a = do
logf <- fromRepo gitAnnexSmudgeLog
lckf <- fromRepo gitAnnexSmudgeLock
streamLogFile (fromRawFilePath logf) lckf $ \l ->
streamLogFile (fromRawFilePath logf) lckf noop $ \l ->
case parse l of
Nothing -> noop
Just (k, f) -> a k f