diff options
Diffstat (limited to 'Command/Sync.hs')
-rw-r--r-- | Command/Sync.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Command/Sync.hs b/Command/Sync.hs index 3a838c8a9..44948ea74 100644 --- a/Command/Sync.hs +++ b/Command/Sync.hs @@ -21,6 +21,7 @@ module Command.Sync ( updateBranch, syncBranch, updateSyncBranch, + seekExportContent, ) where import Command @@ -652,7 +653,10 @@ syncFile ebloom rs af k = do {- When a remote has an export-tracking branch, change the export to - follow the current content of the branch. Otherwise, transfer any files - - that were part of an export but are not in the remote yet. -} + - that were part of an export but are not in the remote yet. + - + - Returns True if any file transfers were made. + -} seekExportContent :: [Remote] -> Annex Bool seekExportContent rs = or <$> forM rs go where |