diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-11 00:26:29 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-11 00:26:29 -0400 |
| commit | d9f5cc9f73ea046fcd2b59b5e75d4600593ac05b (patch) | |
| tree | e692b07c2a474bb48481e42474a1af3a5e57e22c /Assistant/Drop.hs | |
| parent | 1062d35cf793718617561bb112ffbc61de8a6801 (diff) | |
use trustExclude
Diffstat (limited to 'Assistant/Drop.hs')
| -rw-r--r-- | Assistant/Drop.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Drop.hs b/Assistant/Drop.hs index a02f58652..d28a05a53 100644 --- a/Assistant/Drop.hs +++ b/Assistant/Drop.hs @@ -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 |