diff options
author | 2012-10-29 17:52:43 -0400 | |
---|---|---|
committer | 2012-10-29 17:52:43 -0400 | |
commit | 6b91074b4dda6dff353770e054ae550c7d1c3b4c (patch) | |
tree | e539e242355d306c0e6351053a4fc717902cb93d /Assistant/Threads/Pusher.hs | |
parent | 37d888f9b4a33933b2e894791ed85647c02e6182 (diff) |
split and lift Assistant.Pushes
Diffstat (limited to 'Assistant/Threads/Pusher.hs')
-rw-r--r-- | Assistant/Threads/Pusher.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Assistant/Threads/Pusher.hs b/Assistant/Threads/Pusher.hs index 95e4e1276..c87df1610 100644 --- a/Assistant/Threads/Pusher.hs +++ b/Assistant/Threads/Pusher.hs @@ -27,8 +27,7 @@ pushRetryThread :: NamedThread pushRetryThread = NamedThread "PushRetrier" $ runEvery (Seconds halfhour) <~> do -- We already waited half an hour, now wait until there are failed -- pushes to retry. - pushmap <- getAssistant failedPushMap - topush <- liftIO $ getFailedPushesBefore pushmap (fromIntegral halfhour) + topush <- getFailedPushesBefore (fromIntegral halfhour) unless (null topush) $ do debug ["retrying", show (length topush), "failed pushes"] void $ alertWhile (pushRetryAlert topush) $ do |