Review fix by @miikka

This commit is contained in:
Tommi Reiman 2017-08-14 09:41:48 +03:00
parent fe19b57b01
commit d21f051868

View file

@ -56,10 +56,8 @@
{} x))
(defn resolve-routes [data {:keys [coerce] :as opts}]
(cond-> (->> (walk data opts)
(map-meta merge-meta))
coerce (->> (mapv #(coerce % opts))
(filterv identity))))
(cond->> (->> (walk data opts) (map-meta merge-meta))
coerce (into [] (keep #(coerce % opts)))))
(defn compile-route [[p m :as route] {:keys [compile] :as opts}]
[p m (if compile (compile route opts))])