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

feat: dissoc definitions from swagger methods

Browse source 
we only want the definitions on the very top level of the swagger doc
This commit is contained in:
Joel Kaasinen 2023-08-30 09:37:55 +03:00
parent b316840ea0
commit 241c8367e3
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -127,16 +127,17 @@
[(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)
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)]
definitions (apply merge
(for [[_path path-data] paths
[_method data] path-data]
(:definitions data)))
paths-without-definitions (into {}
(for [[path path-data] paths]
[path (into {}
(for [[method data] path-data]
[method (dissoc data :definitions)]))]))]
{:status 200
:body (meta-merge swagger {:paths paths :definitions definitions})}))
:body (meta-merge swagger {:paths paths-without-definitions :definitions definitions})}))
([req res raise]
(try
(res (create-swagger req))