This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
let send_foo_body code body = send_raw ~data:(foo_body code body)
(* Warning: keep default values in sync with Http_response.response class *)
let send_foo_body code body = send_raw ~data:(foo_body code body)
(* Warning: keep default values in sync with Http_response.response class *)
send_basic_headers ?version ~code outchan;
send_headers ~headers outchan;
send_header "Content-Length" (string_of_int (String.length body)) outchan;
send_basic_headers ?version ~code outchan;
send_headers ~headers outchan;
send_header "Content-Length" (string_of_int (String.length body)) outchan;