mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

don't try to transfer data to/from XMPP remotes

Browse source 
Partition syncRemotes into ones needing git sync (ie, non-special remotes),
and ones needing data sync (ie, non-XMPP remotes).
This commit is contained in:
Joey Hess 2012-11-11 16:23:16 -04:00
parent 217eeede43
commit 5e44ab177c
11 changed files with 40 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/TransferQueue.hs
View file

@ -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) $