diff options
Diffstat (limited to 'Assistant/Sync.hs')
| -rw-r--r-- | Assistant/Sync.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs index 8d7ead31d..8815f40c8 100644 --- a/Assistant/Sync.hs +++ b/Assistant/Sync.hs @@ -100,6 +100,7 @@ pushToRemotes now notifypushes remotes = do return ret where go _ Nothing _ _ _ = return True -- no branch, so nothing to do + go _ _ _ _ [] = return True -- no remotes, so nothing to do go shouldretry (Just branch) g u rs = do debug ["pushing to", show rs] liftIO $ Command.Sync.updateBranch (Command.Sync.syncBranch branch) g |