From eba7aa9177846c7386f708e8e96e67aebfe8bda9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 1 Dec 2012 15:00:03 -0400 Subject: better function name --- Assistant/Drop.hs | 8 ++++---- Assistant/Threads/TransferScanner.hs | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) (limited to 'Assistant') 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 -- cgit v1.2.3