populate new field

This commit is contained in:
Joey Hess 2020-12-15 10:37:07 -04:00
parent ed68a2166d
commit 87de360e98
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -378,6 +378,7 @@ addAnnexedFile ci matcher file key mtmp = ifM (addUnlocked matcher mi)
Just tmp -> MatchingFile $ FileInfo
{ contentFile = Just tmp
, matchFile = file
, matchKey = Just key
}
-- Provide as much info as we can without access to the
-- file's content.