From f0612a96eae5267e0834338928fc78d3e9a5b8c0 Mon Sep 17 00:00:00 2001 From: Milo Davis Date: Thu, 10 May 2018 14:06:28 -0700 Subject: [PATCH] Client: improve printing of logged requests --- vendors/ocplib-resto/lib_resto-cohttp/client.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/vendors/ocplib-resto/lib_resto-cohttp/client.ml b/vendors/ocplib-resto/lib_resto-cohttp/client.ml index 7532563c3..ae6a6fe1a 100644 --- a/vendors/ocplib-resto/lib_resto-cohttp/client.ml +++ b/vendors/ocplib-resto/lib_resto-cohttp/client.ml @@ -98,11 +98,11 @@ module Make (Encoding : Resto.ENCODING) = struct let id = !cpt in let uri = Uri.to_string uri in incr cpt ; - Format.fprintf ppf "@[<2>>>>>%d: %s@,%a@]@." id uri (media.pp enc) body ; + Format.fprintf ppf "@[>>>>%d: %s@,%a@]@." id uri (media.pp enc) body ; Lwt.return (id, uri) let log_response (id, _uri) ?(media = faked_media) enc code body = Lazy.force body >>= fun body -> - Format.fprintf ppf "@[<2><<<<%d: %s@,%a@]@." + Format.fprintf ppf "@[<<<<%d: %s@,%a@]@." id (Cohttp.Code.string_of_status code) (media.pp enc) body ; Lwt.return_unit end : LOGGER)