This commit is contained in:
Roman Volosovskyi 2016-11-21 18:19:44 +02:00
parent 353d50d6bf
commit f977dd6d0c
1 changed files with 1 additions and 1 deletions

View File

@ -65,7 +65,7 @@
pred (subscribe [:get :contacts-filter])] pred (subscribe [:get :contacts-filter])]
(reaction (reaction
(let [ordered (sort-contacts @contacts) (let [ordered (sort-contacts @contacts)
ordered (if pred (filter @pred ordered) ordered)] ordered (if @pred (filter @pred ordered) ordered)]
(reduce (fn [prev cur] (reduce (fn [prev cur]
(let [prev-letter (get-contact-letter (last prev)) (let [prev-letter (get-contact-letter (last prev))
cur-letter (get-contact-letter cur)] cur-letter (get-contact-letter cur)]