Handle response headers

Author: ikitommi

CHANGELOG.md

@@ -1,5 +1,7 @@
 ## Unreleased
 
+* Response headers are mapped correctly, Fixes https://github.com/metosin/compojure-api/issues/232.
+
 * updated dependencies:
 
 ```clj

src/ring/swagger/swagger2.clj

@@ -79,7 +79,11 @@
                             :let [{:keys [schema headers]} v]]
                     k (-> v
                           (cond-> schema (update-in [:schema] jsons/->swagger options))
-                          (cond-> headers (update-in [:headers] jsons/properties))
+                          (cond-> headers (update-in [:headers] (fn [headers]
+                                                                  (if headers
+                                                                    (->> (for [[k v] headers]
+                                                                           [k (jsons/->swagger v options)])
+                                                                         (into {}))))))
                           (update-in [:description] #(or % (default-response-description k options)))
                           remove-empty-keys))]
     (if-not (empty? responses)

test/ring/swagger/swagger2_unit_test.clj

@@ -428,7 +428,8 @@
                                       :produces ["application/xyz"]
                                       :parameters {:path {:id Integer}}
                                       :responses {200 {:description "ok"
-                                                       :schema Pet}
+                                                       :schema Pet
+                                                       :headers {"X-men" (describe s/Str "mutant header")}}
                                                   404 {:description "fail"
                                                        :schema PetError}}}}}})
     => {:swagger "2.0"
@@ -460,7 +461,9 @@
                                                       :type "integer"
                                                       :format "int32"}]
                                         :responses {200 {:description "ok"
-                                                         :schema {:$ref "#/definitions/Pet"}}
+                                                         :schema {:$ref "#/definitions/Pet"}
+                                                         :headers {"X-men" {:type "string"
+                                                                            :description "mutant header"}}}
                                                     404 {:description "fail"
                                                          :schema {:$ref "#/definitions/PetError"}}}}}}
         :definitions {"Pet" {:type "object"