Andrey Shovkoplyas 2017-06-15 19:39:02 +03:00 committed by Roman Volosovskyi
parent 7591baa5ee
commit 6d3edd7920
1 changed files with 1 additions and 1 deletions

View File

@ -29,7 +29,7 @@
(defn save (defn save
[{:keys [whisper-identity pending?] :as contact}] [{:keys [whisper-identity pending?] :as contact}]
(let [{pending-db? :pending? (let [{pending-db? :pending?
:as contact-db} (data-store/get-by-id whisper-identity) :as contact-db} (get-by-id whisper-identity)
contact' (-> contact contact' (-> contact
(assoc :pending? (boolean (if contact-db (assoc :pending? (boolean (if contact-db
(if (nil? pending?) pending-db? pending?) (if (nil? pending?) pending-db? pending?)