diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-01 15:00:03 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-01 15:00:03 -0400 |
| commit | eba7aa9177846c7386f708e8e96e67aebfe8bda9 (patch) | |
| tree | 07608126ee94a56f705e04d2a06b5d94e3286e4f /Assistant/Drop.hs | |
| parent | 45c5c791cffbb7b6d97033195860ec12eb3a3992 (diff) | |
better function name
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 |