- Buffer.clear contentsBuf;
- Buffer.add_buffer contentsBuf b
- method addContents s = Buffer.add_string contentsBuf s
- method addContentsBuf b = Buffer.add_buffer contentsBuf b
-
- method addHeader ~name ~value = Hashtbl.add headers name value
+ Buffer.clear _contentsBuf;
+ Buffer.add_buffer _contentsBuf b
+ method addContents s = Buffer.add_string _contentsBuf s
+ method addContentsBuf b = Buffer.add_buffer _contentsBuf b
+
+ method addHeader ~name ~value =
+ Http_parser.heal_header (name, value);
+ Hashtbl.add _headers name value
+ method addHeaders =
+ List.iter (fun (name, value) -> self#addHeader ~name ~value)
+
+ method replaceHeader ~name ~value =
+ Http_parser.heal_header (name, value);
+ Hashtbl.replace _headers name value
+ method replaceHeaders =
+ List.iter (fun (name, value) -> self#replaceHeader ~name ~value)
+