diff options
Diffstat (limited to 'Assistant/Sync.hs')
| -rw-r--r-- | Assistant/Sync.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs index b0f3890ee..42f82e9ab 100644 --- a/Assistant/Sync.hs +++ b/Assistant/Sync.hs @@ -31,9 +31,9 @@ import qualified Data.Map as M - if the git-annex branches of the remotes have diverged from the - local git-annex branch. -} -syncRemotes :: ThreadName -> ThreadState -> DaemonStatusHandle -> ScanRemoteMap -> [Remote] -> IO () -syncRemotes _ _ _ _ [] = noop -syncRemotes threadname st dstatus scanremotes rs = void $ +reconnectRemotes :: ThreadName -> ThreadState -> DaemonStatusHandle -> ScanRemoteMap -> [Remote] -> IO () +reconnectRemotes _ _ _ _ [] = noop +reconnectRemotes threadname st dstatus scanremotes rs = void $ alertWhile dstatus (syncAlert rs) $ do sync =<< runThreadState st (inRepo Git.Branch.current) where |