fix :chat-properties

This commit is contained in:
Roman Volosovskyi 2016-05-09 18:39:10 +03:00
parent 9e49529d12
commit 4c4e27267a
1 changed files with 5 additions and 5 deletions

View File

@ -159,10 +159,10 @@
(fn [db _] (reaction @db)))
(register-sub :chat-properties
(fn [{:keys [current-chat-id] :as db} [_ properties]]
(fn [db [_ properties]]
(->> properties
(map (fn [k]
[k (-> @db
(get-in [:cgats current-chat-id k])
(get-in [:chats (:current-chat-id @db) k])
(reaction))]))
(into {}))))