check and drop unwanted content from remotes after receiving a transfer

2012-10-18 15:37:57 -04:00 · 2012-10-18 15:37:57 -04:00 · ee9e0702a2
commit ee9e0702a2
parent dea125e1b7
4 changed files with 33 additions and 28 deletions
--- a/Assistant/Threads/TransferScanner.hs
+++ b/Assistant/Threads/TransferScanner.hs
@ -125,7 +125,7 @@ expensiveScan st dstatus transferqueue rs = unless onlyweb $ do
 			syncrs <- liftIO $ syncRemotes <$> getDaemonStatus dstatus
 			present <- inAnnex key

-			handleDrops' locs syncrs present f key
+			handleDrops locs syncrs present f key

 			let slocs = S.fromList locs
 			let use a = return $ catMaybes $ map (a key slocs) syncrs