[schema] better cookies, composite schemas

Author: lispyclouds

src/navi/impl.clj

@@ -118,7 +118,8 @@
                        (apply merge-with into)
                        (wrap-map :path)
                        (wrap-map :query)
-                       (wrap-map :header))
+                       (wrap-map :header)
+                       (wrap-map :cookie))
           responses (-> (.getResponses op)
                         (update-kvs handle-response-key response->data))]
       (cond-> {:handler (get handlers (.getOperationId op))}

src/navi/transform.clj

@@ -77,7 +77,10 @@
                                  [(.getAnyOf schema) :or]
 
                                  (< 0 (count (.getAllOf schema)))
-                                 [(.getAllOf schema) :and])]
+                                 [(.getAllOf schema) :and]
+
+                                 :else
+                                 (throw (IllegalArgumentException. "Unsupported composite schema. Use either anyOf, allOf")))]
       (->> schemas
            (map p/transform)
            (into [compose-as]))))