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

use trustExclude

Browse source
This commit is contained in:
Joey Hess 2012-11-11 00:26:29 -04:00
parent ec337baaee
commit 6a0756d2fb
4 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Drop.hs
View file

@ -39,7 +39,7 @@ handleDrops' locs rs fromhere key (Just f)
| otherwise = go rs =<< getcopies
where
getcopies = do
have <- length . snd <$> trustPartition UnTrusted locs
have <- length <$> trustExclude UnTrusted locs
numcopies <- getNumCopies =<< numCopies f
return (have, numcopies)
checkcopies (have, numcopies) = have > numcopies