diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-11 16:23:16 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-11 16:23:16 -0400 |
| commit | 6068fd160ffeb930368a4c4c2a8818ace71f29ab (patch) | |
| tree | 3f5a183e9594854a55f17cfdca740516943084c6 /Assistant/TransferQueue.hs | |
| parent | 0d21e323e0d095232e347859adaaf2cc2cd71592 (diff) | |
don't try to transfer data to/from XMPP remotes
Partition syncRemotes into ones needing git sync (ie, non-special remotes),
and ones needing data sync (ie, non-XMPP remotes).
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) $ |