diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-29 14:22:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-29 14:25:20 -0400 |
| commit | 16d6ab71124876f7cffb79778cf8de1b23b5c1ba (patch) | |
| tree | 088d256697b521d069c14f3e05c70540586de7ad /Assistant/Sync.hs | |
| parent | e802db0b6b69198e4699d63d76b5d0fc78864714 (diff) | |
add post-repair actions
Diffstat (limited to 'Assistant/Sync.hs')
| -rw-r--r-- | Assistant/Sync.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs index 4a021df2e..f7656f52d 100644 --- a/Assistant/Sync.hs +++ b/Assistant/Sync.hs @@ -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 |