This commit is contained in:
parent
7591baa5ee
commit
6d3edd7920
|
@ -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?)
|
||||||
|
|
Loading…
Reference in New Issue