From 08f1265886b5cd8646e73f7ed0013b94d34b5f14 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 22 Dec 2015 16:22:28 -0400 Subject: populate unlocked files with newly available content when ingesting This can happen when ingesting a new file in either locked or unlocked mode, when some unlocked files in the repo use the same key, and the content was not locally available before. --- Assistant/Threads/Committer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Assistant') diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs index 3e00011f5..c7633d590 100644 --- a/Assistant/Threads/Committer.hs +++ b/Assistant/Threads/Committer.hs @@ -347,7 +347,7 @@ handleAdds havelsof delayadd cs = returnWhen (null incomplete) $ do let source = keySource $ lockedDown change liftAnnex $ if isdirect then finishIngestDirect key source - else Database.Keys.addAssociatedFile key (keyFilename source) + else finishIngestUnlocked key source done change Nothing (keyFilename source) key removedKeysMap :: Bool -> InodeComparisonType -> [Change] -> Annex (M.Map InodeCacheKey Key) -- cgit v1.2.3