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

Rewrote reitit.core/path-conflicting-routes using transducers.

Browse source
This commit is contained in:
Vincent Cantin 2019-01-21 23:18:19 +08:00
parent 7ec5c79cad
commit b77115850f
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -65,17 +65,17 @@
(cond->> (->> (walk raw-routes opts) (map-data merge-data))
coerce (into [] (keep #(coerce % opts)))))
;; This whole function might be more efficient and easier to understand with transducers.
(defn path-conflicting-routes [routes]
(some->>
(loop [[r & rest] routes, acc {}]
(if (seq rest)
(let [conflicting (set (keep #(if (impl/conflicting-routes? r %) %) rest))]
(recur rest (update acc r (fnil (comp set concat) #{}) conflicting)))
acc))
(filter (comp seq second))
(seq)
(into {})))
(let [conflicting-routes
(into {}
(comp (map-indexed (fn [index route]
[route (into #{}
(filter #(impl/conflicting-routes? route %))
(subvec routes (inc index)))]))
(filter (comp seq second)))
routes)]
(when (seq conflicting-routes)
conflicting-routes)))
(defn conflicting-paths [conflicts]
(->> (for [[p pc] conflicts]