refactor: use update-vals

This commit is contained in:
Joel Kaasinen 2023-09-01 10:37:17 +03:00
parent df5f75eb89
commit 497da675b9

View file

@ -131,11 +131,8 @@
(for [[_path path-data] paths (for [[_path path-data] paths
[_method data] path-data] [_method data] path-data]
(:definitions data))) (:definitions data)))
paths-without-definitions (into {} paths-without-definitions (update-vals paths (fn [methods]
(for [[path path-data] paths] (update-vals methods #(dissoc % :definitions))))]
[path (into {}
(for [[method data] path-data]
[method (dissoc data :definitions)]))]))]
{:status 200 {:status 200
:body (meta-merge swagger {:paths paths-without-definitions :definitions definitions})})) :body (meta-merge swagger {:paths paths-without-definitions :definitions definitions})}))
([req res raise] ([req res raise]