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)) {} x))
(defn resolve-routes [data {:keys [coerce] :as opts}] (defn resolve-routes [data {:keys [coerce] :as opts}]
(cond-> (->> (walk data opts) (cond->> (->> (walk data opts) (map-meta merge-meta))
(map-meta merge-meta)) coerce (into [] (keep #(coerce % opts)))))
coerce (->> (mapv #(coerce % opts))
(filterv identity))))
(defn compile-route [[p m :as route] {:keys [compile] :as opts}] (defn compile-route [[p m :as route] {:keys [compile] :as opts}]
[p m (if compile (compile route opts))]) [p m (if compile (compile route opts))])