luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-29 04:38:26 +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)))
(nil? maybe-arg))
[{} args]
[maybe-arg (rest args)])]
(let [d (endpoint pacc path macc data childs)
data-for-endpoint (when (:endpoint d) (into macc (expand (:endpoint d) opts)))
data-for-children (or (:inherit d) data)
macc (into macc (expand data-for-children opts))]
[maybe-arg (rest args)])
d (endpoint pacc path macc data childs)
data-for-endpoint (when (:endpoint d) (into macc (expand (:endpoint d) opts)))
data-for-children (or (:inherit d) data)
macc (into macc (expand data-for-children opts))]
(-> (when data-for-endpoint [[(str pacc path) data-for-endpoint]])
(concat (when (seq childs) (-> (str pacc path)
(walk-many macc (keep identity childs))
(seq))))))))))]
(seq)))))))))]
(walk-one path (mapv identity data) raw-routes)))
(defn map-data [f routes]