]> matita.cs.unibo.it Git - helm.git/commitdiff
send internally generated headers in lowercase form for consistency
authorStefano Zacchiroli <zack@upsilon.cc>
Wed, 24 Jan 2007 09:10:03 +0000 (09:10 +0000)
committerStefano Zacchiroli <zack@upsilon.cc>
Wed, 24 Jan 2007 09:10:03 +0000 (09:10 +0000)
helm/software/DEVEL/ocaml-http/debian/changelog
helm/software/DEVEL/ocaml-http/http_daemon.ml

index 5d0033b8b5752834b76718810f34f480fb69d419..9b39aa5c47ab7c84c846fe036e82fd8b6ba8e780 100644 (file)
@@ -1,3 +1,10 @@
+ocaml-http (0.1.4-1) UNRELEASED; urgency=low
+
+  * send internally generated headers as lowercase strings, for consistency
+    with headers generated via setXXX methods
+
+ -- Stefano Zacchiroli <zack@debian.org>  Wed, 24 Jan 2007 10:09:12 +0100
+
 ocaml-http (0.1.3-3) UNRELEASED; urgency=low
 
   * debian/rules
index 992f3b99a8dc9a8bcf2ea31c19b2c05cfbd30f5f..f7c8495de2c5d747cb0872d19a18524333ce6255 100644 (file)
@@ -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)