gistfile1.clj

(ns reproduce-body-params-bug.core
  (:require [ring.middleware.format-params :refer [wrap-restful-params]]
            [compojure.core :refer [routes POST]]
            [compojure.handler :refer [api]]))

(defn handle-post [request]
  {:status 200
   :headers {"Content-Type" "text/plain"}
   :body (str (:body-params request))})

(defn assemble-routes []
  (routes (POST "/" [] handle-post)))

(defn create-handler []
  (fn [request]
    ((-> (assemble-routes)
         api
         wrap-restful-params)
     request)))

(defn handler
  "Ring handler"
  [request]
  ((create-handler) request))