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

@ -102,9 +102,9 @@
(get @db :signed-up)))) (get @db :signed-up))))
(register-sub (register-sub
:show-actions :show-actions
(fn [db _] (fn [db _]
(reaction (get-in @db db/show-actions-path)))) (reaction (get-in @db db/show-actions-path))))
(register-sub (register-sub
:get-contacts :get-contacts
@ -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 {}))))