    (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))))


(defn text-codec

   (text-codec (Charset/forName "UTF-8")))
  ([charset]
   (TextCodec. (str "/text/" charset) charset)))
