send internally generated headers in lowercase form for consistency

[helm.git] / DEVEL / ocaml-http / http_daemon.ml

diff --git a/DEVEL/ocaml-http/http_daemon.ml b/DEVEL/ocaml-http/http_daemon.ml
index 992f3b99a8dc9a8bcf2ea31c19b2c05cfbd30f5f..f7c8495de2c5d747cb0872d19a18524333ce6255 100644 (file)
--- a/DEVEL/ocaml-http/http_daemon.ml
+++ b/DEVEL/ocaml-http/http_daemon.ml
@@ -36,6 +36,7 @@ let send_raw ~data outchan =
 let send_CRLF = send_raw ~data:crlf
 
 let send_header ~header ~value =
+  let header = String.lowercase header in
   Http_parser_sanity.heal_header (header, value);
   send_raw ~data:(header ^ ": " ^ value ^ crlf)