A modified version of wrap-json for handling content-type like: "application/json; charset=UTF-8"

wrap-json.clj

(defn wrap-json [handler]
  (fn [req]
    (let [content-type (get-in req [:headers "content-type"])
          neue (if (and content-type
                        (some #{"application/json"}
                              (string/split content-type #";")))
                 
                 (update-in req [:params] assoc :json
                            (json/parse-string (slurp (:body req))
                                               true))
                 req)]
      (handler neue))))