diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-06-16 19:07:14 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-06-16 19:07:14 -0400 |
| commit | 6d6111dd8c244285c484e416a84ed4c4a89313e1 (patch) | |
| tree | c36313384faf3d1536646fc3cad401b79b7fb369 | |
| parent | b6751c0a7cff4efc80425ae811a37aba65b55a01 (diff) | |
move comment
| -rw-r--r-- | Command/Sync.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/Command/Sync.hs b/Command/Sync.hs index 9ad0b8deb..958f034c8 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -363,17 +363,6 @@ newer remote b = do - This ensures that preferred content expressions that match on - filenames work, even when in --all mode. - - - If it's preferred content, and we don't have it, get it from one of the - - listed remotes (preferring the cheaper earlier ones). - - - - Send it to each remote that doesn't have it, and for which it's - - preferred content. - - - - Drop it locally if it's not preferred content (honoring numcopies). - - - - Drop it from each remote that has it, where it's not preferred content - - (honoring numcopies). - - - If any file movements were generated, returns true. -} seekSyncContent :: [Remote] -> Annex Bool @@ -394,6 +383,17 @@ seekSyncContent rs = do void $ liftIO $ tryPutMVar mvar () syncFile ebloom rs af k +{- If it's preferred content, and we don't have it, get it from one of the + - listed remotes (preferring the cheaper earlier ones). + - + - Send it to each remote that doesn't have it, and for which it's + - preferred content. + - + - Drop it locally if it's not preferred content (honoring numcopies). + - + - Drop it from each remote that has it, where it's not preferred content + - (honoring numcopies). + -} syncFile :: Either (Maybe (Bloom Key)) (Key -> Annex ()) -> [Remote] -> AssociatedFile -> Key -> Annex () syncFile ebloom rs af k = do locs <- loggedLocations k |