From 5713afac34ec5ea0972b731a69b0d3cdcefc9b46 Mon Sep 17 00:00:00 2001 From: Tommi Reiman Date: Thu, 28 Feb 2019 14:59:48 +0200 Subject: [PATCH] best-effort to retain route order with swagger --- modules/reitit-swagger/src/reitit/swagger.cljc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/modules/reitit-swagger/src/reitit/swagger.cljc b/modules/reitit-swagger/src/reitit/swagger.cljc index b5c58fc5..eff32865 100644 --- a/modules/reitit-swagger/src/reitit/swagger.cljc +++ b/modules/reitit-swagger/src/reitit/swagger.cljc @@ -98,7 +98,8 @@ transform-path (fn [[p _ c]] (if-let [endpoint (some->> c (keep transform-endpoint) (seq) (into {}))] [(swagger-path p) endpoint]))] - (let [paths (->> router (r/compiled-routes) (filter accept-route) (map transform-path) (into {}))] + (let [map-in-order #(->> % (apply concat) (apply array-map)) + paths (->> router (r/compiled-routes) (filter accept-route) (map transform-path) map-in-order)] {:status 200 :body (meta-merge swagger {:paths paths})}))) ([req res raise]