fix tabs on iOS release build

This commit is contained in:
Roman Volosovskyi 2017-03-10 16:24:47 +02:00
parent 72a5acfa61
commit e2f31aae00
1 changed files with 8 additions and 2 deletions

View File

@ -54,5 +54,11 @@
(defn tabs [{:keys [tab-list selected-view-id prev-view-id]}]
[tabs-container
[view st/tabs-inner-container
(doall (map-indexed #(create-tab %1 %2 selected-view-id prev-view-id) tab-list))]])
(into
[view st/tabs-inner-container]
(let [tabs (into [] tab-list)]
[[create-tab 0 (nth tabs 0) selected-view-id prev-view-id]
[create-tab 1 (nth tabs 1) selected-view-id prev-view-id]
[create-tab 2 (nth tabs 2) selected-view-id prev-view-id]])
;; todo: figure why it doesn't work on iOS release build
#_(map-indexed #(create-tab %1 %2 selected-view-id prev-view-id) tab-list))])