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

fix: dissoc unsupported [:responses nnn :content] for swagger

Browse source 
otherwise swagger generation crashes when it tries to serialize
something like `{:content {"foo/bar" any?}}`

also fix examples/ring-malli-swagger
This commit is contained in:
Joel Kaasinen 2023-08-28 11:02:31 +03:00
parent 7b4127b0f1
commit e4c75c7354
4 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
examples/ring-malli-swagger/src/example/server.clj
View file

@ -61,7 +61,7 @@
{:get {:summary "downloads a file" {:get {:summary "downloads a file"
:swagger {:produces ["image/png"]} :swagger {:produces ["image/png"]}
:responses {200 {:description "an image" :responses {200 {:description "an image"
:content {"image/png" any?}}} :content {"image/png" {:schema string?}}}}
:handler (fn [_] :handler (fn [_]
{:status 200 {:status 200
:headers {"Content-Type" "image/png"} :headers {"Content-Type" "image/png"}

1
modules/reitit-malli/src/reitit/coercion/malli.cljc
View file

@ -259,6 +259,7 @@
(for [[status response] responses] (for [[status response] responses]
[status (as-> response $ [status (as-> response $
(set/rename-keys $ {:body :schema}) (set/rename-keys $ {:body :schema})
(dissoc $ :content)
(update $ :description (fnil identity "")) (update $ :description (fnil identity ""))
(if (:schema $) (if (:schema $)
(update $ :schema swagger/transform {:type :schema}) (update $ :schema swagger/transform {:type :schema})

4
modules/reitit-schema/src/reitit/coercion/schema.cljc
View file

@ -60,7 +60,9 @@
(into (into
(empty responses) (empty responses)
(for [[k response] responses] (for [[k response] responses]
[k (set/rename-keys response {:body :schema})]))}))) [k (-> response
(dissoc :content)
(set/rename-keys {:body :schema}))]))})))
:openapi (merge :openapi (merge
(when (seq (dissoc parameters :body :request :multipart)) (when (seq (dissoc parameters :body :request :multipart))
(openapi/openapi-spec {::openapi/parameters (dissoc parameters :body :request)})) (openapi/openapi-spec {::openapi/parameters (dissoc parameters :body :request)}))

1
modules/reitit-spec/src/reitit/coercion/spec.cljc
View file

@ -101,6 +101,7 @@
(empty responses) (empty responses)
(for [[k response] responses] (for [[k response] responses]
[k (as-> response $ [k (as-> response $
(dissoc $ :content)
(set/rename-keys $ {:body :schema}))]))}))) (set/rename-keys $ {:body :schema}))]))})))
:openapi (merge :openapi (merge
(when (seq (dissoc parameters :body :request :multipart)) (when (seq (dissoc parameters :body :request :multipart))