diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-24 13:46:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-24 13:46:10 -0400 |
| commit | e58d19b53378b93818620518ddbc09a0c3a895dd (patch) | |
| tree | 528bcbffecf4fac563ca637b17ed3ce70590878a /Assistant/Sync.hs | |
| parent | 9fafddc7eb320e9399c586a901936383abb3fa4d (diff) | |
run full transfer scan on all remotes at startup
Or when a remote first becomes available after startup.
Diffstat (limited to 'Assistant/Sync.hs')
| -rw-r--r-- | Assistant/Sync.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs index 6a586e097..35b300f39 100644 --- a/Assistant/Sync.hs +++ b/Assistant/Sync.hs @@ -40,13 +40,13 @@ reconnectRemotes threadname st dstatus scanremotes rs = void $ where sync (Just branch) = do diverged <- manualPull st (Just branch) rs - addScanRemotes scanremotes rs diverged + addScanRemotes scanremotes diverged rs now <- getCurrentTime pushToRemotes threadname now st Nothing rs {- No local branch exists yet, but we can try pulling. -} sync Nothing = do diverged <- manualPull st Nothing rs - addScanRemotes scanremotes rs diverged + addScanRemotes scanremotes diverged rs return True {- Updates the local sync branch, then pushes it to all remotes, in |