populate new field
This commit is contained in:
parent
ed68a2166d
commit
87de360e98
1 changed files with 1 additions and 0 deletions
|
@ -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.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue