better name

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

Assistant/Threads/MountWatcher.hs

@@ -142,7 +142,7 @@ handleMounts st dstatus scanremotes wasmounted nowmounted =
 handleMount :: ThreadState -> DaemonStatusHandle -> ScanRemoteMap -> FilePath -> IO ()
 handleMount st dstatus scanremotes dir = do
 	debug thisThread ["detected mount of", dir]
-	syncRemotes thisThread st dstatus scanremotes
+	reconnectRemotes thisThread st dstatus scanremotes
 		=<< filter (Git.repoIsLocal . Remote.repo)
 			<$> remotesUnder st dstatus dir
 

Assistant/Threads/NetWatcher.hs

@@ -124,7 +124,7 @@ pollingThread st dstatus scanremotes = runEvery (Seconds 3600) $
 
 handleConnection :: ThreadState -> DaemonStatusHandle -> ScanRemoteMap -> IO ()
 handleConnection st dstatus scanremotes = do
-	syncRemotes thisThread st dstatus scanremotes =<< 
+	reconnectRemotes thisThread st dstatus scanremotes =<< 
 		filter (Git.repoIsUrl . Remote.repo)
 			<$> networkRemotes st