check and drop after uploads

This commit is contained in:
Joey Hess 2012-10-18 16:05:43 -04:00
parent 0c6a1ec87d
commit 9c89924c05
4 changed files with 21 additions and 17 deletions

View file

@ -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