Fix for red screen on login
This commit is contained in:
parent
e8aa157ea5
commit
fcf44737a4
|
@ -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