From 83c8c3104583d6fea4c44751b39191b1f4af443f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 14 Oct 2012 14:47:01 -0400 Subject: better variable name --- Assistant/TransferQueue.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Assistant/TransferQueue.hs') 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) $ -- cgit v1.2.3