Display curl requests and responses in debug

CHANGES.md

@@ -8,6 +8,10 @@
 
 - API: `Contributions.of_json` parameter `~from` is replaced by `~period` (#31, @gpetiot)
 
+### Added
+
+- Display curl requests and responses in debug mode (`-vv` or `--verbosity debug`) (#<PR_NUMBER>, @gpetiot)
+
 ## 1.0.1
 
 ### Fixed

bin/dune

@@ -2,4 +2,11 @@
  (name main)
  (public_name get-activity)
  (package get-activity)
- (libraries cmdliner dune-build-info get-activity-lib))
+ (libraries
+  cmdliner
+  dune-build-info
+  get-activity-lib
+  logs.cli
+  logs.fmt
+  fmt.cli
+  fmt.tty))

bin/main.ml

@@ -43,6 +43,15 @@ let mode = `Normal
 
 open Cmdliner
 
+let setup_log style_renderer level =
+  Fmt_tty.setup_std_outputs ?style_renderer ();
+  Logs.set_level level;
+  Logs.set_reporter (Logs_fmt.reporter ());
+  ()
+
+let setup_log =
+  Term.(const setup_log $ Fmt_cli.style_renderer () $ Logs_cli.level ())
+
 let from =
   let doc =
     Arg.info ~docv:"TIMESTAMP" ~doc:"Starting date (ISO8601)." [ "from" ]
@@ -88,11 +97,10 @@ let version =
 
 let info = Cmd.info "get-activity" ~version
 
-let run period user : unit =
+let run () period user : unit =
   match mode with
   | `Normal ->
       Period.with_period period ~last_fetch_file ~f:(fun period ->
-          (* Fmt.pr "period: %a@." Fmt.(pair string string) period; *)
           let* token = get_token () in
           let request = Contributions.request ~period ~user ~token in
           let* contributions = Graphql.exec request in
@@ -112,6 +120,6 @@ let run period user : unit =
       in
       show ~period ~user @@ Yojson.Safe.from_file "activity.json"
 
-let term = Term.(const run $ term_result period $ user)
+let term = Term.(const run $ setup_log $ term_result period $ user)
 let cmd = Cmd.v info term
 let () = Stdlib.exit @@ Cmd.eval cmd

dune-project

@@ -22,6 +22,7 @@
   astring
   curly
   (fmt (>= 0.8.7))
+  logs
   ppx_yojson_conv
   (yojson (>= 1.6))
   (ocaml (>= 4.08))))

get-activity-lib.opam

@@ -12,6 +12,7 @@ depends: [
   "astring"
   "curly"
   "fmt" {>= "0.8.7"}
+  "logs"
   "ppx_yojson_conv"
   "yojson" {>= "1.6"}
   "ocaml" {>= "4.08"}

lib/dune

@@ -1,6 +1,6 @@
 (library
  (name get_activity)
  (public_name get-activity-lib)
- (libraries astring curly fmt yojson)
+ (libraries astring curly fmt logs yojson)
  (preprocess
   (pps ppx_yojson_conv)))

lib/graphql.ml

@@ -24,8 +24,10 @@ let exec request =
   let { meth; url; headers; body } = request in
   let body = Yojson.Safe.to_string body in
   let request = Curly.Request.make ~headers ~body ~url ~meth () in
+  Logs.debug (fun m -> m "request: @[%a@]@." Curly.Request.pp request);
   match Curly.run request with
-  | Ok { Curly.Response.body; _ } -> (
+  | Ok ({ Curly.Response.body; _ } as response) -> (
+      Logs.debug (fun m -> m "response: @[%a@]@." Curly.Response.pp response);
       let json = Yojson.Safe.from_string body in
       match json / "message" with
       | `Null -> Ok json