    (text-codec (Charset/forName "UTF-8")))
   ([charset]
    (TextCodec. (str "/text/" charset) charset)))
-
-
-;; Remove automatic constructor functions.
-(ns-unmap *ns* '->TextCodec)
-(ns-unmap *ns* 'map->TextCodec)

   (wrap-headers codec (:header codec)))
  ([codec header]
   (HeaderCodec. header codec)))


;; Remove automatic constructor functions.
(ns-unmap *ns* '->HeaderCodec)
(ns-unmap *ns* 'map->HeaderCodec)




          writer (StringWriter.)]
      (io/copy reader writer)
      (.toString writer))))


;; Remove automatic constructor functions.
(ns-unmap *ns* '->TextCodec)
(ns-unmap *ns* 'map->TextCodec)


(defn text-codec
