summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-11-10 14:52:25 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-11-10 14:52:25 -0400
commitc1c42eb293c9bd7a481adcaf6a9e144438efe390 (patch)
tree48861cf93b45e91f0e54c6389cca1d67f78ed97f /Assistant
parent3ff1d41a1be38ab8e239b23f590b3f0c96e9ce8b (diff)
avoid sending xmpp push notifications when not pushing to any remotes
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/Sync.hs1
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