diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-18 12:17:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-18 12:17:33 -0400 |
| commit | 76fa21235015727ec53e63a44ec833212005153b (patch) | |
| tree | ba073a552aa62fcdb1770720fbbce74cf20e2576 /Assistant/Sync.hs | |
| parent | 35f138cc957c51a36949d146c678e37a4e677173 (diff) | |
unify two similar alerts
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 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 |