Remove a nil :definitions key

metosin · Sep 20, 2023 · 65e8235 · 65e8235
1 parent 9e32739
commit 65e8235
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/src/spec_tools/swagger/core.cljc b/src/spec_tools/swagger/core.cljc
@@ -239,11 +239,14 @@
           x))
       x)))
 
-(defn- raise-refs-to-top [x]
-  (cond-> x
-    (:paths x) (->
-                 (assoc :definitions (apply merge (map :definitions (mapcat vals (vals (:paths x))))))
-                 (update :paths update-vals (fn [path] (update-vals path #(dissoc % :definitions)))))))
+(defn- raise-refs-to-top [swagger-doc]
+  (let [swagger-doc'
+        (cond-> swagger-doc
+          (:paths swagger-doc) (->
+                                 (assoc :definitions (apply merge (map :definitions (mapcat vals (vals (:paths swagger-doc))))))
+                                 (update :paths update-vals (fn [path] (update-vals path #(dissoc % :definitions))))))]
+    (cond-> swagger-doc'
+      (nil? (:definitions swagger-doc')) (dissoc swagger-doc' :definitions))))
 
 ;;
 ;; generate the swagger spec