summaryrefslogtreecommitdiff
path: root/Assistant/Threads
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-12-01 15:00:03 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-12-01 15:00:03 -0400
commiteba7aa9177846c7386f708e8e96e67aebfe8bda9 (patch)
tree07608126ee94a56f705e04d2a06b5d94e3286e4f /Assistant/Threads
parent45c5c791cffbb7b6d97033195860ec12eb3a3992 (diff)
better function name
Diffstat (limited to 'Assistant/Threads')
-rw-r--r--Assistant/Threads/TransferScanner.hs2
1 files changed, 1 insertions, 1 deletions
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