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