pkgs/development/ocaml-modules/ocsigen-server/cohttp-5.patch

   1 diff --git a/src/server/ocsigen_cohttp.ml b/src/server/ocsigen_cohttp.ml
   2 index 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