add post-repair actions
This commit is contained in:
parent
791c8535b5
commit
496c8b7abb
9 changed files with 113 additions and 71 deletions
|
@ -67,7 +67,7 @@ reconnectRemotes notifypushes rs = void $ do
|
|||
failedrs <- syncAction rs' (const go)
|
||||
forM_ failedrs $ \r ->
|
||||
whenM (liftIO $ Remote.checkAvailable False r) $
|
||||
repoHasProblem (Remote.uuid r)
|
||||
repoHasProblem (Remote.uuid r) (syncRemote r)
|
||||
mapM_ signal $ filter (`notElem` failedrs) rs'
|
||||
where
|
||||
gitremotes = filter (notspecialremote . Remote.repo) rs
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue