mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

run full transfer scan on all remotes at startup

Browse source 
Or when a remote first becomes available after startup.
This commit is contained in:
Joey Hess 2012-08-24 13:46:10 -04:00
parent 9fafddc7eb
commit e58d19b533
3 changed files with 39 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Sync.hs
View file

@ -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