diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-09-20 13:27:59 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-09-20 13:58:27 -0400 |
| commit | d20933a25956a3a07247f66fe3a554761d616173 (patch) | |
| tree | 47bd006b6255beac3b7286977988c64dce6236a2 /Assistant/Threads/Glacier.hs | |
| parent | 7fa114e629fe33822763f376ac57b0efd48d5686 (diff) | |
first pass at assistant knowing about export remotes
Split exportRemotes out from syncDataRemotes; the parts of the assistant
that upload keys and drop keys from remotes don't apply to exports,
because those operations are not supported.
Some parts of the assistant and webapp do operate on both
syncDataRemotes and exportRemotes. Particularly when downloading from
either of them. Added a downloadRemotes that combines both.
With this, the assistant should download from exports, but it won't yet
upload changes to them.
This commit was sponsored by Fernando Jimenez on Patreon.
Diffstat (limited to 'Assistant/Threads/Glacier.hs')
| -rw-r--r-- | Assistant/Threads/Glacier.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/Glacier.hs b/Assistant/Threads/Glacier.hs index b5eaa5ea9..2fd025df1 100644 --- a/Assistant/Threads/Glacier.hs +++ b/Assistant/Threads/Glacier.hs @@ -29,7 +29,7 @@ glacierThread = namedThread "Glacier" $ runEvery (Seconds 3600) <~> go where isglacier r = Remote.remotetype r == Glacier.remote go = do - rs <- filter isglacier . syncDataRemotes <$> getDaemonStatus + rs <- filter isglacier . downloadRemotes <$> getDaemonStatus forM_ rs $ \r -> check r =<< liftAnnex (getFailedTransfers $ Remote.uuid r) check _ [] = noop |