diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-14 14:47:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-14 14:50:03 -0400 |
| commit | 83c8c3104583d6fea4c44751b39191b1f4af443f (patch) | |
| tree | 670ee370decd2e9e4fca38f4f66077e77c92dce5 /Assistant/TransferQueue.hs | |
| parent | ec23c75632cf1b8e4e3d5049a2c0a7623a9ae958 (diff) | |
better variable name
Diffstat (limited to 'Assistant/TransferQueue.hs')
| -rw-r--r-- | Assistant/TransferQueue.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/TransferQueue.hs b/Assistant/TransferQueue.hs index 9b081d32e..766d2b44a 100644 --- a/Assistant/TransferQueue.hs +++ b/Assistant/TransferQueue.hs @@ -71,7 +71,7 @@ queueTransfersMatching matching schedule q dstatus k f direction where go = do rs <- sufficientremotes - =<< knownRemotes <$> liftIO (getDaemonStatus dstatus) + =<< syncRemotes <$> liftIO (getDaemonStatus dstatus) let matchingrs = filter (matching . Remote.uuid) rs if null matchingrs then defer @@ -104,7 +104,7 @@ 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 <- knownRemotes <$> liftIO (getDaemonStatus dstatus) + rs <- syncRemotes <$> liftIO (getDaemonStatus dstatus) l <- liftIO $ atomically $ swapTVar (deferreddownloads q) [] left <- filterM (queue rs) l unless (null left) $ |