   ([parsefn]
    (fn [context]
      (let [^Context ctx (:catacumba/context context)
-           ^TypedData body (.. ctx getRequest getBody)]
-       (ct/delegate context {:body (parsefn ctx body)})))))
+           ^TypedData body (:body context)]
+       (ct/delegate context {:data (parsefn ctx body)})))))

  "A polymorophic method for parse body into clojure
  friendly data structure."
  (fn [^Context ctx ^TypedData body]
    (let [^Request request (.getRequest ctx)
          ^String contenttype (.. request getBody getContentType getType)]
      (if contenttype
        (keyword (.toLowerCase contenttype))
        :application/octet-stream)))


(defmethod parse :multipart/form-data
  [^Context ctx ^TypedData body]
  (ct/get-formdata* ctx body))

(defmethod parse :application/x-www-form-urlencoded
  [^Context ctx ^TypedData body]
  (ct/get-formdata* ctx body))

(defmethod parse :application/json
  [^Context ctx ^TypedData body]
