       (mc/decode! codec input))))
 
 
+;; Remove automatic constructor functions.
+(ns-unmap *ns* '->HeaderCodec)
+(ns-unmap *ns* 'map->HeaderCodec)
+
+
 (defn wrap-headers
   "Creates a new codec which will write the header for the wrapped codec before
   calling it. When decoding, it will read the header before calling the wrapped

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

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


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


(defn text-codec
