X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2FDEVEL%2Focaml-http%2Fhttp_daemon.ml;h=f7c8495de2c5d747cb0872d19a18524333ce6255;hb=5e72e41f4f86814e56d4b00959ccc56c71042a4c;hp=992f3b99a8dc9a8bcf2ea31c19b2c05cfbd30f5f;hpb=014181f92398c4935857568a1586113fac9d0e36;p=helm.git

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