luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-24 19:08:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Lift definitions to root of swagger.json

Browse source 
...so that all of the absolute $ref's to them will resolve
This commit is contained in:
Wes Morgan 2023-03-06 12:16:48 -07:00
parent 229171c7e3
commit 4f31304a1a
No known key found for this signature in database
GPG key ID: 5639E4CBFA17DC84
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
modules/reitit-swagger/src/reitit/swagger.cljc
View file

@ -102,9 +102,17 @@
(if-let [endpoint (some->> c (keep transform-endpoint) (seq) (into {}))]
[(swagger-path p (r/options router)) endpoint]))
map-in-order #(->> % (apply concat) (apply array-map))
paths (->> router (r/compiled-routes) (filter accept-route) (map transform-path) map-in-order)]
paths (->> router (r/compiled-routes) (filter accept-route) (map transform-path) map-in-order)
definitions (reduce-kv
(fn [ds _ v]
(let [ks (keys v)]
(merge ds (apply merge
(for [k ks]
(when-let [method-map (get v k)]
(:definitions method-map)))))))
{} paths)]
{:status 200
:body (meta-merge swagger {:paths paths})}))
:body (meta-merge swagger {:paths paths :definitions definitions})}))
([req res raise]
(try
(res (create-swagger req))