From aa26294c303846f4022a8750a148863646c9fdde Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 18 Mar 2013 16:19:42 -0400 Subject: webapp: Improved alerts displayed when syncing with remotes, and when syncing with a remote fails. --- Assistant/Threads/Pusher.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Assistant/Threads/Pusher.hs') diff --git a/Assistant/Threads/Pusher.hs b/Assistant/Threads/Pusher.hs index d87aa8d3b..e90cca1ec 100644 --- a/Assistant/Threads/Pusher.hs +++ b/Assistant/Threads/Pusher.hs @@ -11,7 +11,6 @@ import Assistant.Common import Assistant.Commits import Assistant.Types.Commits import Assistant.Pushes -import Assistant.Alert import Assistant.DaemonStatus import Assistant.Sync import Utility.ThreadScheduler @@ -25,8 +24,7 @@ pushRetryThread = namedThread "PushRetrier" $ runEvery (Seconds halfhour) <~> do topush <- getFailedPushesBefore (fromIntegral halfhour) unless (null topush) $ do debug ["retrying", show (length topush), "failed pushes"] - void $ alertWhile (pushRetryAlert topush) $ - pushToRemotes True topush + void $ pushToRemotes True topush where halfhour = 1800 -- cgit v1.2.3