tjh.dev
1diff --git a/src/server/ocsigen_cohttp.ml b/src/server/ocsigen_cohttp.ml
2index 4363cff7..b0cc0c53 100644
3--- a/src/server/ocsigen_cohttp.ml
4+++ b/src/server/ocsigen_cohttp.ml
5@@ -14,25 +14,13 @@ exception Ext_http_error of
6
7 let _print_request fmt request =
8
9- let print_list print_data out_ch lst =
10- let rec aux = function
11- | [] -> ()
12- | [ x ] -> print_data out_ch x
13- | x :: r -> print_data out_ch x; aux r
14- in aux lst
15- in
16-
17 Format.fprintf fmt "%s [%s/%s]:\n"
18 (Uri.to_string (Cohttp.Request.uri request))
19 Cohttp.(Code.string_of_version (Request.version request))
20 Cohttp.(Code.string_of_method (Request.meth request));
21
22 Cohttp.Header.iter
23- (fun key values ->
24- (print_list
25- (fun fmt value -> Format.fprintf fmt "\t%s = %s\n" key value)
26- fmt
27- values))
28+ (Format.fprintf fmt "\t%s = %s\n")
29 (Cohttp.Request.headers request)
30
31 let connections = Hashtbl.create 256