luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-22 18:41:10 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Apply a change suggested by Miikka Koskinen.

Browse source
This commit is contained in:
Vincent Cantin 2019-01-22 08:22:48 +08:00
parent b77115850f
commit fdf249a959
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
modules/reitit-core/src/reitit/core.cljc
View file

@ -66,16 +66,14 @@
coerce (into [] (keep #(coerce % opts))))) coerce (into [] (keep #(coerce % opts)))))
(defn path-conflicting-routes [routes] (defn path-conflicting-routes [routes]
(let [conflicting-routes (-> (into {}
(into {}
(comp (map-indexed (fn [index route] (comp (map-indexed (fn [index route]
[route (into #{} [route (into #{}
(filter #(impl/conflicting-routes? route %)) (filter #(impl/conflicting-routes? route %))
(subvec routes (inc index)))])) (subvec routes (inc index)))]))
(filter (comp seq second))) (filter (comp seq second)))
routes)] routes)
(when (seq conflicting-routes) (not-empty)))
conflicting-routes)))
(defn conflicting-paths [conflicts] (defn conflicting-paths [conflicts]
(->> (for [[p pc] conflicts] (->> (for [[p pc] conflicts]