luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2026-01-31 10:00:33 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove let inside let

Browse source
This commit is contained in:
Toni Vanhala 2019-12-04 20:55:25 +02:00
parent 271c1d91ec
commit b0093b6c2c
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
modules/reitit-core/src/reitit/impl.cljc
View file

@ -53,15 +53,15 @@
(sequential? (first maybe-arg))) (sequential? (first maybe-arg)))
(nil? maybe-arg)) (nil? maybe-arg))
[{} args] [{} args]
[maybe-arg (rest args)])] [maybe-arg (rest args)])
(let [d (endpoint pacc path macc data childs) d (endpoint pacc path macc data childs)
data-for-endpoint (when (:endpoint d) (into macc (expand (:endpoint d) opts))) data-for-endpoint (when (:endpoint d) (into macc (expand (:endpoint d) opts)))
data-for-children (or (:inherit d) data) data-for-children (or (:inherit d) data)
macc (into macc (expand data-for-children opts))] macc (into macc (expand data-for-children opts))]
(-> (when data-for-endpoint [[(str pacc path) data-for-endpoint]]) (-> (when data-for-endpoint [[(str pacc path) data-for-endpoint]])
(concat (when (seq childs) (-> (str pacc path) (concat (when (seq childs) (-> (str pacc path)
(walk-many macc (keep identity childs)) (walk-many macc (keep identity childs))
(seq))))))))))] (seq)))))))))]
(walk-one path (mapv identity data) raw-routes))) (walk-one path (mapv identity data) raw-routes)))
(defn map-data [f routes] (defn map-data [f routes]