add the known associated file to the list of others

This commit is contained in:
Joey Hess 2016-01-26 14:48:19 -04:00
parent a69a746afa
commit 710d44a16e
Failed to extract signature

View file

@ -54,7 +54,9 @@ handleDropsFrom locs rs reason fromhere key afile preverified runner = do
g <- Annex.gitRepo
map (`fromTopFilePath` g) <$> Database.Keys.getAssociatedFiles key
)
let fs = if null l then maybeToList afile else l
let fs = case afile of
Just f -> nub (f : l)
Nothing -> l
n <- getcopies fs
void $ if fromhere && checkcopies n Nothing
then go fs rs n >>= dropl fs