add the known associated file to the list of others

1 files changed, 3 insertions, 1 deletions

diff --git a/Annex/Drop.hs b/Annex/Drop.hs
index e5508b2b0..000e4f84a 100644
--- a/Annex/Drop.hs
+++ b/Annex/Drop.hs
@@ -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