summaryrefslogtreecommitdiff
path: root/Assistant/Sync.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-03-18 12:17:33 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-03-18 12:17:33 -0400
commit76fa21235015727ec53e63a44ec833212005153b (patch)
treeba073a552aa62fcdb1770720fbbce74cf20e2576 /Assistant/Sync.hs
parent35f138cc957c51a36949d146c678e37a4e677173 (diff)
unify two similar alerts
Diffstat (limited to 'Assistant/Sync.hs')
-rw-r--r--Assistant/Sync.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs
index 46fc0c309..39c30d108 100644
--- a/Assistant/Sync.hs
+++ b/Assistant/Sync.hs
@@ -104,7 +104,7 @@ pushToRemotes notifypushes remotes = do
let go = pushToRemotes' now notifypushes remotes
if null nonxmppremotes
then go
- else alertWhile (pushAlert nonxmppremotes) go
+ else alertWhile (syncAlert nonxmppremotes) go
pushToRemotes' :: UTCTime -> Bool -> [Remote] -> Assistant Bool
pushToRemotes' now notifypushes remotes = do
(g, branch, u) <- liftAnnex $ do