Fix for red screen on login

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

View File

@ -207,12 +207,10 @@
(defn reset-pending-messages! [to] (defn reset-pending-messages! [to]
(doseq [key (@recipient->pending-message to)] (doseq [key (@recipient->pending-message to)]
(swap! messages (when (get-in @messages key)
(fn [messages] (swap! messages #(update-in % key assoc
(when (get-in messages key) :last-attempt 0
(update-in messages key assoc :attempts 0)))))
:last-attempt 0
:attempts 0))))))
(defn reset-all-pending-messages! [] (defn reset-all-pending-messages! []
(reset! messages {})) (reset! messages {}))