check and drop after uploads

2012-10-18 16:05:43 -04:00 · 2012-10-18 16:05:43 -04:00 · 9c89924c05
commit 9c89924c05
parent 0c6a1ec87d
4 changed files with 21 additions and 17 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 key (Just f)

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