split ScanRemotes and lifted

This commit is contained in:
Joey Hess 2012-10-29 19:14:30 -04:00
parent 86cb3faf51
commit 0c584bf70d
5 changed files with 45 additions and 30 deletions

View file

@ -41,8 +41,7 @@ reconnectRemotes notifypushes rs = void $ do
alertWhile (syncAlert rs) $ do
(ok, diverged) <- sync
=<< liftAnnex (inRepo Git.Branch.current)
scanremotes <- getAssistant scanRemoteMap
liftIO $ addScanRemotes scanremotes diverged rs
addScanRemotes diverged rs
return ok
where
(gitremotes, _specialremotes) =