mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add the known associated file to the list of others

Browse source
This commit is contained in:
Joey Hess 2016-01-26 14:48:19 -04:00
parent a69a746afa
commit 710d44a16e
Failed to extract signature
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Annex/Drop.hs
View file

@ -54,7 +54,9 @@ handleDropsFrom locs rs reason fromhere key afile preverified runner = do
g <- Annex.gitRepo g <- Annex.gitRepo
map (`fromTopFilePath` g) <$> Database.Keys.getAssociatedFiles key 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 n <- getcopies fs
void $ if fromhere && checkcopies n Nothing void $ if fromhere && checkcopies n Nothing
then go fs rs n >>= dropl fs then go fs rs n >>= dropl fs