mirror of
https://github.com/NixOS/nixpkgs.git
synced 2024-12-29 09:04:17 +00:00
32 lines
962 B
Diff
32 lines
962 B
Diff
|
diff --git a/src/server/ocsigen_cohttp.ml b/src/server/ocsigen_cohttp.ml
|
||
|
|
index 4363cff7..b0cc0c53 100644
|
||
|
|
--- a/src/server/ocsigen_cohttp.ml
|
||
|
|
+++ b/src/server/ocsigen_cohttp.ml
|
||
|
|
@@ -14,25 +14,13 @@ exception Ext_http_error of
|
||
|
|
|
||
|
|
let _print_request fmt request =
|
||
|
|
|
||
|
|
- let print_list print_data out_ch lst =
|
||
|
|
- let rec aux = function
|
||
|
|
- | [] -> ()
|
||
|
|
- | [ x ] -> print_data out_ch x
|
||
|
|
- | x :: r -> print_data out_ch x; aux r
|
||
|
|
- in aux lst
|
||
|
|
- in
|
||
|
|
-
|
||
|
|
Format.fprintf fmt "%s [%s/%s]:\n"
|
||
|
|
(Uri.to_string (Cohttp.Request.uri request))
|
||
|
|
Cohttp.(Code.string_of_version (Request.version request))
|
||
|
|
Cohttp.(Code.string_of_method (Request.meth request));
|
||
|
|
|
||
|
|
Cohttp.Header.iter
|
||
|
|
- (fun key values ->
|
||
|
|
- (print_list
|
||
|
|
- (fun fmt value -> Format.fprintf fmt "\t%s = %s\n" key value)
|
||
|
|
- fmt
|
||
|
|
- values))
|
||
|
|
+ (Format.fprintf fmt "\t%s = %s\n")
|
||
|
|
(Cohttp.Request.headers request)
|
||
|
|
|
||
|
|
let connections = Hashtbl.create 256
|