X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=DEVEL%2Focaml-http%2Fhttp_daemon.ml;h=f7c8495de2c5d747cb0872d19a18524333ce6255;hb=61b565d1306b7ab37e436d9fc73e4b1560214664;hp=992f3b99a8dc9a8bcf2ea31c19b2c05cfbd30f5f;hpb=a10be3a13dcc22283717c86e660a95a9f113875d;p=helm.git

diff --git a/DEVEL/ocaml-http/http_daemon.ml b/DEVEL/ocaml-http/http_daemon.ml
index 992f3b99a..f7c8495de 100644
--- 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)