From 76fa21235015727ec53e63a44ec833212005153b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 18 Mar 2013 12:17:33 -0400 Subject: unify two similar alerts --- Assistant/Alert.hs | 4 ---- Assistant/Sync.hs | 2 +- 2 files changed, 1 insertion(+), 5 deletions(-) (limited to 'Assistant') diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index 40c37a94a..4e733428a 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -239,10 +239,6 @@ commitAlert = activityAlert Nothing showRemotes :: [Remote] -> TenseChunk showRemotes = UnTensed . T.unwords . map (T.pack . Remote.name) -pushAlert :: [Remote] -> Alert -pushAlert rs = activityAlert Nothing - [Tensed "Syncing" "Synced", "with", showRemotes rs] - pushRetryAlert :: [Remote] -> Alert pushRetryAlert rs = activityAlert (Just $ tenseWords [Tensed "Retrying" "Retried", "sync"]) 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 -- cgit v1.2.3