   (if (seq result)
    {:status 200
     :headers {"Content-Type" (mt/format->mime-type :xml)}
-    :body (result-map->xml (contextualize-warnings result))}
+    :body (result-map->xml result)}
    {:status 200}))
 
 (defn- invalid-revision-id-error

  ;; ring-json middleware will handle converting the body to json
  {:status (ingest-status-code result)
   :headers {"Content-Type" (mt/format->mime-type :json)}
   :body (contextualize-warnings result)})

(defmethod generate-ingest-response :xml
  [headers result]
  {:status (ingest-status-code result)
   :headers {"Content-Type" (mt/format->mime-type :xml)}
   :body (result-map->xml (contextualize-warnings result))})

(defmulti generate-validate-response
  "Convert a result to a proper response format"

  (if (seq result)
    {:status 200
     :headers {"Content-Type" (mt/format->mime-type :json)}
     :body result}
    {:status 200}))

(defmethod generate-validate-response :xml
