From b0093b6c2cb4dbc3271eabf21a79cc1f8a255932 Mon Sep 17 00:00:00 2001 From: Toni Vanhala Date: Wed, 4 Dec 2019 20:55:25 +0200 Subject: [PATCH] Remove let inside let --- modules/reitit-core/src/reitit/impl.cljc | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/modules/reitit-core/src/reitit/impl.cljc b/modules/reitit-core/src/reitit/impl.cljc index ac24fe6c..f6dfc6ea 100644 --- a/modules/reitit-core/src/reitit/impl.cljc +++ b/modules/reitit-core/src/reitit/impl.cljc @@ -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]