Fix for red screen on login

This commit is contained in:
Alexander Pantyuhov 2016-11-02 22:19:45 +03:00
parent e8aa157ea5
commit fcf44737a4
1 changed files with 4 additions and 6 deletions

View File

@ -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 {}))