diff options
Diffstat (limited to 'Assistant/Drop.hs')
-rw-r--r-- | Assistant/Drop.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Assistant/Drop.hs b/Assistant/Drop.hs index 4551f49ba..15bda77c2 100644 --- a/Assistant/Drop.hs +++ b/Assistant/Drop.hs @@ -27,11 +27,11 @@ handleDrops fromhere key f knownpresentremote = do syncrs <- syncDataRemotes <$> getDaemonStatus liftAnnex $ do locs <- loggedLocations key - handleDrops' locs syncrs fromhere key f knownpresentremote + handleDropsFrom locs syncrs fromhere key f knownpresentremote -handleDrops' :: [UUID] -> [Remote] -> Bool -> Key -> AssociatedFile -> Maybe Remote -> Annex () -handleDrops' _ _ _ _ Nothing _ = noop -handleDrops' locs rs fromhere key (Just f) knownpresentremote +handleDropsFrom :: [UUID] -> [Remote] -> Bool -> Key -> AssociatedFile -> Maybe Remote -> Annex () +handleDropsFrom _ _ _ _ Nothing _ = noop +handleDropsFrom locs rs fromhere key (Just f) knownpresentremote | fromhere = do n <- getcopies if checkcopies n |