fix :chat-properties

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

View File

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