fix Unmatched delimiter from #787

This commit is contained in:
Roman Volosovskyi 2017-02-06 10:39:39 +02:00
parent 37e871b117
commit 3386346f07
1 changed files with 1 additions and 1 deletions

View File

@ -224,7 +224,7 @@
(fn [{:keys [chats contacts]} [_ chat-id]] (fn [{:keys [chats contacts]} [_ chat-id]]
(let [contact (if-let [contact-info (get-in chats [chat-id :contact-info])] (let [contact (if-let [contact-info (get-in chats [chat-id :contact-info])]
(read-string contact-info) (read-string contact-info)
(assoc (get contacts chat-id) :pending false))] (assoc (get contacts chat-id) :pending false))
contact' (assoc contact :address (public-key->address chat-id))] contact' (assoc contact :address (public-key->address chat-id))]
(dispatch [::prepare-contact contact']) (dispatch [::prepare-contact contact'])
(dispatch [:watch-contact contact']) (dispatch [:watch-contact contact'])