mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

reorder

Browse source 
get list of remotes after, rather than before, a potentially blocking action
This commit is contained in:
Joey Hess 2012-10-14 15:09:37 -04:00
parent 592d55ef7c
commit 6144f325b9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Assistant/TransferQueue.hs
View file

@ -104,8 +104,8 @@ queueTransfersMatching matching schedule q dstatus k f direction
- any others in the list to try again later. -} - any others in the list to try again later. -}
queueDeferredDownloads :: Schedule -> TransferQueue -> DaemonStatusHandle -> Annex () queueDeferredDownloads :: Schedule -> TransferQueue -> DaemonStatusHandle -> Annex ()
queueDeferredDownloads schedule q dstatus = do queueDeferredDownloads schedule q dstatus = do
rs <- syncRemotes <$> liftIO (getDaemonStatus dstatus)
l <- liftIO $ atomically $ swapTVar (deferreddownloads q) [] l <- liftIO $ atomically $ swapTVar (deferreddownloads q) []
rs <- syncRemotes <$> liftIO (getDaemonStatus dstatus)
left <- filterM (queue rs) l left <- filterM (queue rs) l
unless (null left) $ unless (null left) $
liftIO $ atomically $ modifyTVar' (deferreddownloads q) $ liftIO $ atomically $ modifyTVar' (deferreddownloads q) $