Addfork

camelus.opam

@@ -23,7 +23,3 @@ depends: [
   "fpath"
 ]
 build: ["dune" "build" "-p" name]
-pin-depends: [
-  ["github.3.1.0" "git+https://github.com/AltGr/ocaml-github#21efde3"]
-  ["github-unix.3.1.0" "git+https://github.com/AltGr/ocaml-github#21efde3"]
-]

camelus_child.ml

@@ -0,0 +1,39 @@
+open Camelus_lib
+
+let () = log "here"
+
+let conf = Conf.read (OpamFile.make (OpamFilename.of_string "opam-ci.conf"))
+
+let name = conf.Conf.name
+let token = conf.Conf.token
+
+let repo = {
+  user = "ocaml";
+  name = "opam-repository";
+  auth = Some (name, Github.Token.to_string token);
+}
+
+let base_branch = "master"
+let dest_branch = "2.0.0"
+
+let _ =
+  let pr = Fork_handler.delinearize_pr Sys.argv 1 in
+  let msghead = Sys.argv.(pred @@ Array.length Sys.argv) in
+  Lwt.with_value log_tag (Some (string_of_int pr.number)) @@
+  fun () ->
+  log "Pr handled in child process";
+  Lwt_main.run begin
+    let%lwt gitstore = match%lwt RepoGit.get repo with
+      | Ok r -> Lwt.return r
+      | Error e -> Lwt.fail (Failure "Repository loading failed")
+    in
+    log "repo gotten, running checks";
+    let%lwt status,body = PrChecks.run_nogit ~conf pr gitstore msghead in
+    Github.(
+      Monad.(run @@ begin
+          let state,text = Github_comment.make_status status in
+          GH.comment conf pr body >>= fun _ ->
+          GH.status conf pr state (Some text)
+        end)
+    )
+  end