best-effort to retain route order with swagger

metosin · Feb 28, 2019 · 5713afa · 5713afa
1 parent 684f5bb
commit 5713afa
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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]