populate new field

diff --git a/Annex/Ingest.hs b/Annex/Ingest.hs
index c240ca152f50529e622e8d3b860d0aa11e2aaef5..d36932cc6f14f3271ca8029ac4b80088b8eb9238 100644 (file)
--- a/Annex/Ingest.hs
+++ b/Annex/Ingest.hs
@@ -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.