 
   EnumSchema
   (convert-schema [schema _ swagger-object]
-    [swagger-object {:type :string                          ; an assumption
-                     :enum (unwrap-schema schema)}])
+    [swagger-object (merge-in-description
+                      {:type :string                        ; an assumption
+                       :enum (unwrap-schema schema)}
+                      schema)])
 
   Maybe
   (convert-schema [schema swagger-options swagger-object]
     (let [[swagger-object' swagger-schema] (simple->swagger-schema swagger-options swagger-object (unwrap-schema schema))]
-      [swagger-object' (assoc swagger-schema :allowEmptyValue true)]))
+      [swagger-object' (-> swagger-schema
+                           (assoc :allowEmptyValue true)
+                           (merge-in-description schema))]))
 
   AnythingSchema
   (convert-schema [schema swagger-options swagger-object]
-    [swagger-object {:type :object}])
+    [swagger-object (merge-in-description {:type :object} schema)])
 
   Both
   (convert-schema [schema swagger-options swagger-object]

                      {:schema schema})))
    (t/track
      "Converting vector schema."
      (let [[swagger-object' item-reference] (simple->swagger-schema swagger-options swagger-object (first schema))]
        [swagger-object' {:type  :array
                          :items item-reference}])))

  IPersistentMap
  (convert-schema [schema swagger-options swagger-object]

     data (get data-type-mappings schema)]

    (some? data)
    [swagger-object (merge-in-description data schema)]

    :else
    (convert-schema schema swagger-options swagger-object)))
