diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-18 17:50:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-18 17:50:07 -0400 |
| commit | 18bae020ede6770dfbe00a3335c0e9f8b7f7fdf6 (patch) | |
| tree | 74eb967c26258c40649e80d8992aee556b04f6f0 /Assistant/TransferQueue.hs | |
| parent | 467844d7d3f703f99fcde1f951f33efda5e90074 (diff) | |
make other repositories list list all autostarted repos
And add a form to add another, unrelated repository
Diffstat (limited to 'Assistant/TransferQueue.hs')
| -rw-r--r-- | Assistant/TransferQueue.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/TransferQueue.hs b/Assistant/TransferQueue.hs index 1941c23ef..e2c3f167b 100644 --- a/Assistant/TransferQueue.hs +++ b/Assistant/TransferQueue.hs @@ -61,12 +61,12 @@ queueTransfers :: Schedule -> TransferQueue -> DaemonStatusHandle -> Key -> Asso queueTransfers = queueTransfersMatching (const True) {- Adds transfers to queue for some of the known remotes, that match a - - predicate. -} + - condition. -} queueTransfersMatching :: (UUID -> Bool) -> Schedule -> TransferQueue -> DaemonStatusHandle -> Key -> AssociatedFile -> Direction -> Annex () -queueTransfersMatching pred schedule q dstatus k f direction = do +queueTransfersMatching matching schedule q dstatus k f direction = do rs <- sufficientremotes =<< knownRemotes <$> liftIO (getDaemonStatus dstatus) - let matchingrs = filter (pred . Remote.uuid) rs + let matchingrs = filter (matching . Remote.uuid) rs if null matchingrs then defer else forM_ matchingrs $ \r -> liftIO $ |