:update-contact! handler fixed (#559)

This commit is contained in:
alwx 2016-12-22 12:35:17 +03:00
parent 6002d53c97
commit 316e321b02
1 changed files with 5 additions and 2 deletions

View File

@ -83,9 +83,12 @@
:private updates-private-key}}}})))
(register-handler :update-contact!
(-> (fn [db [_ {:keys [whisper-identity] :as contact}]]
(fn [db [_ {:keys [whisper-identity] :as contact}]]
(if (contacts/exists? whisper-identity)
(do
(contacts/save contact)
(update-in db [:contacts whisper-identity] merge contact))
((after save-contact))))
db)))
(defn load-contacts! [db _]
(let [contacts (->> (contacts/get-all)