parent
321935e8ca
commit
87159dca7e
|
@ -207,12 +207,10 @@
|
|||
|
||||
(defn reset-pending-messages! [to]
|
||||
(doseq [key (@recipient->pending-message to)]
|
||||
(swap! messages
|
||||
(fn [messages]
|
||||
(when (get-in messages key)
|
||||
(update-in messages key assoc
|
||||
:last-attempt 0
|
||||
:attempts 0))))))
|
||||
(when (get-in @messages key)
|
||||
(swap! messages #(update-in % key assoc
|
||||
:last-attempt 0
|
||||
:attempts 0)))))
|
||||
|
||||
(defn reset-all-pending-messages! []
|
||||
(reset! messages {}))
|
||||
|
|
Loading…
Reference in New Issue