diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-30 14:44:18 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-30 14:44:18 -0400 |
| commit | bab7e83221468905b76e28bb123ebe26e146b97b (patch) | |
| tree | 19b3bf6d56f936a81c09be7b552c3a8616d45e27 /Assistant/TransferQueue.hs | |
| parent | ca03b7fef80cf97e89cd785ec8393a27d5328d99 (diff) | |
cleanup daemonStatus accessors
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 94a294549..13f9f0088 100644 --- a/Assistant/TransferQueue.hs +++ b/Assistant/TransferQueue.hs @@ -58,7 +58,7 @@ queueTransfersMatching matching schedule q dstatus k f direction where go = do rs <- sufficientremotes - =<< syncRemotes <$> liftIO (getDaemonStatus dstatus) + =<< syncRemotes <$> liftIO (getDaemonStatusOld dstatus) let matchingrs = filter (matching . Remote.uuid) rs if null matchingrs then defer @@ -92,7 +92,7 @@ queueTransfersMatching matching schedule q dstatus k f direction queueDeferredDownloads :: Schedule -> TransferQueue -> DaemonStatusHandle -> Annex () queueDeferredDownloads schedule q dstatus = do l <- liftIO $ atomically $ swapTVar (deferreddownloads q) [] - rs <- syncRemotes <$> liftIO (getDaemonStatus dstatus) + rs <- syncRemotes <$> liftIO (getDaemonStatusOld dstatus) left <- filterM (queue rs) l unless (null left) $ liftIO $ atomically $ modifyTVar' (deferreddownloads q) $ |