parent
e3ec4757b7
commit
339ceae33e
|
@ -96,8 +96,7 @@
|
||||||
(defn remove-contacts
|
(defn remove-contacts
|
||||||
[chat-id identities]
|
[chat-id identities]
|
||||||
(let [contacts (get-contacts chat-id)]
|
(let [contacts (get-contacts chat-id)]
|
||||||
(realm/write @realm/account-realm
|
(delete-contacts identities contacts)))
|
||||||
#(delete-contacts identities contacts))))
|
|
||||||
|
|
||||||
(defn save-property
|
(defn save-property
|
||||||
[chat-id property-name value]
|
[chat-id property-name value]
|
||||||
|
|
|
@ -49,6 +49,5 @@
|
||||||
|
|
||||||
(defn delete-by-chat-id
|
(defn delete-by-chat-id
|
||||||
[chat-id]
|
[chat-id]
|
||||||
(realm/write @realm/account-realm
|
(realm/delete @realm/account-realm
|
||||||
#(realm/delete @realm/account-realm
|
(get-by-chat-id chat-id)))
|
||||||
(get-by-chat-id chat-id))))
|
|
||||||
|
|
Loading…
Reference in New Issue