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 | |
| parent | 45c5c791cffbb7b6d97033195860ec12eb3a3992 (diff) | |
better function name
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Drop.hs | 8 | ||||
| -rw-r--r-- | Assistant/Threads/TransferScanner.hs | 2 |
2 files changed, 5 insertions, 5 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 diff --git a/Assistant/Threads/TransferScanner.hs b/Assistant/Threads/TransferScanner.hs index 6cbb5cc89..da3f0608f 100644 --- a/Assistant/Threads/TransferScanner.hs +++ b/Assistant/Threads/TransferScanner.hs @@ -119,7 +119,7 @@ expensiveScan rs = unless onlyweb $ do locs <- loggedLocations key present <- inAnnex key - handleDrops' locs syncrs present key (Just f) Nothing + handleDropsFrom locs syncrs present key (Just f) Nothing let slocs = S.fromList locs let use a = return $ catMaybes $ map (a key slocs) syncrs |