fix #475
This commit is contained in:
parent
353d50d6bf
commit
f977dd6d0c
|
@ -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)]
|
||||||
|
|
Loading…
Reference in New Issue