diff options
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 8e403cc43..4d46b0920 100644 --- a/Assistant/TransferQueue.hs +++ b/Assistant/TransferQueue.hs @@ -57,7 +57,7 @@ queueTransfersMatching matching schedule k f direction where go = do rs <- liftAnnex . sufficientremotes - =<< syncRemotes <$> getDaemonStatus + =<< syncDataRemotes <$> getDaemonStatus let matchingrs = filter (matching . Remote.uuid) rs if null matchingrs then defer @@ -94,7 +94,7 @@ queueDeferredDownloads :: Schedule -> Assistant () queueDeferredDownloads schedule = do q <- getAssistant transferQueue l <- liftIO $ atomically $ swapTVar (deferreddownloads q) [] - rs <- syncRemotes <$> getDaemonStatus + rs <- syncDataRemotes <$> getDaemonStatus left <- filterM (queue rs) l unless (null left) $ liftIO $ atomically $ modifyTVar' (deferreddownloads q) $ |