request only one day history from mailserver

This commit is contained in:
Roman Volosovskyi 2018-10-16 10:30:10 +03:00
parent 31fdb39683
commit 7bab525202
No known key found for this signature in database
GPG Key ID: 0238A4B5ECEE70DE
1 changed files with 3 additions and 3 deletions

View File

@ -28,7 +28,7 @@
(def one-day (* 24 3600))
(def seven-days (* 7 one-day))
(def maximum-number-of-attemps 2)
(def maximum-number-of-attempts 2)
(def request-timeout 30)
(def connection-timeout
@ -208,7 +208,7 @@
[now-in-s [topic {:keys [last-request]}]]
(let [days (conj
(into [] (range (max last-request
(- now-in-s seven-days))
(- now-in-s one-day))
now-in-s
one-day))
now-in-s)
@ -372,7 +372,7 @@
(fx/defn resend-request
[{:keys [db] :as cofx} {:keys [request-id]}]
(if (<= maximum-number-of-attemps
(if (<= maximum-number-of-attempts
(get-in db [:transport.inbox/current-request :attemps]))
(fx/merge cofx
{:db (update db :transport.inbox/current-request dissoc :attemps)}