add endpoint to print current in-memory repo config

Author: yasunariw

lib/action.ml

@@ -350,4 +350,11 @@ module Action (Github_api : Api.Github) (Slack_api : Api.Slack) = struct
     | Ok () ->
     match notification.event with
     | Link_shared event -> process_link_shared_event ctx event
+
+  (** debugging endpoint to return current in-memory repo config *)
+  let print_config (ctx : Context.t) repo_url =
+    log#info "finding config for repo_url: %s" repo_url;
+    match Context.find_repo_config ctx repo_url with
+    | None -> Lwt.return_error (`Not_found, Printf.sprintf "repo_url not found: %s" repo_url)
+    | Some config -> Lwt.return_ok (Config_j.string_of_config config)
 end

src/dune

@@ -1,6 +1,6 @@
 (executable
  (libraries lib base base.caml cmdliner devkit devkit.core extlib lwt.unix
-   stdio uri)
+   result stdio uri)
  (preprocess
   (pps lwt_ppx))
  (public_name monorobot))

src/request_handler.ml

@@ -34,6 +34,12 @@ let setup_http ~ctx ~signature ~port ~ip =
         in
         match request.meth, List.map Web.urldecode path with
         | _, [ "stats" ] -> ret @@ Lwt.return (sprintf "%s %s uptime\n" signature Devkit.Action.uptime#get_str)
+        | `GET, [ "config" ] ->
+          let repo_url = Arg.str "repo" |> Web.urldecode in
+          ( match%lwt Action.print_config ctx repo_url with
+          | Error (code, msg) -> ret_err code msg
+          | Ok res -> ret ~typ:"application/json" (Lwt.return res)
+          )
         | _, [ "github" ] ->
           log#info "%s" request.body;
           let%lwt () = Action.process_github_notification ctx request.headers request.body in