reorder
get list of remotes after, rather than before, a potentially blocking action
This commit is contained in:
parent
592d55ef7c
commit
6144f325b9
1 changed files with 1 additions and 1 deletions
|
@ -104,8 +104,8 @@ queueTransfersMatching matching schedule q dstatus k f direction
|
|||
- any others in the list to try again later. -}
|
||||
queueDeferredDownloads :: Schedule -> TransferQueue -> DaemonStatusHandle -> Annex ()
|
||||
queueDeferredDownloads schedule q dstatus = do
|
||||
rs <- syncRemotes <$> liftIO (getDaemonStatus dstatus)
|
||||
l <- liftIO $ atomically $ swapTVar (deferreddownloads q) []
|
||||
rs <- syncRemotes <$> liftIO (getDaemonStatus dstatus)
|
||||
left <- filterM (queue rs) l
|
||||
unless (null left) $
|
||||
liftIO $ atomically $ modifyTVar' (deferreddownloads q) $
|
||||
|
|
Loading…
Add table
Reference in a new issue