check and drop after uploads
This commit is contained in:
parent
0c6a1ec87d
commit
9c89924c05
4 changed files with 21 additions and 17 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue