diff options
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 |