refactor: move init_git_bare_repository to GitHub_utils because it is more generic and not bot-specific

Author: lykimq

bot-components/Git_utils.ml

@@ -1,5 +1,6 @@
 open Base
 open GitHub_types
+open Bot_info
 open Lwt.Infix
 open Lwt.Syntax
 open Utils
@@ -139,3 +140,15 @@ let%expect_test "http_repo_url_parsing_example_from_gitlab_docs" =
     {|
   GitLab domain: "gitlab.example.com"
   GitLab repository full name: "gitlab-org/gitlab-test" |}]
+
+let init_git_bare_repository ~bot_info =
+  let* () = Lwt_io.printl "Initializing repository..." in
+  "git init --bare"
+  |&& f {|git config user.email "%s"|} bot_info.email
+  |&& f {|git config user.name "%s"|} bot_info.github_name
+  |> execute_cmd ~mask:[bot_info.github_pat]
+  >>= function
+  | Ok _ ->
+      Lwt_io.printl "Bare repository initialized."
+  | Error e ->
+      Lwt_io.printlf "Error while initializing bare repository: %s." e

bot-components/Git_utils.mli

@@ -28,3 +28,5 @@ val pr_from_branch : string -> int option * string
 
 val parse_gitlab_repo_url :
   http_repo_url:string -> (string * string, string) result
+
+val init_git_bare_repository : bot_info:Bot_info.t -> unit Lwt.t

src/ci/minimization.ml

@@ -1,11 +1,11 @@
 open Bot_components
+open Git_utils
 open Base
 open Utils
 open Lwt.Infix
 open GitHub_types
 open Cohttp
 open Cohttp_lwt_unix
-open Helpers
 
 type artifact_info =
   | ArtifactInfo of

src/utils/dune

@@ -3,4 +3,4 @@
  (public_name coq-bot.utils)
  (libraries base bot-components coq-bot.config)
  (wrapped false)
- (modules bench coq helpers))
+ (modules bench coq))

src/utils/helpers.ml

@@ -4,8 +4,8 @@ open Cohttp_lwt_unix
 open Bot_components
 open Bot_components.GitHub_types
 open Bot_components.GitHub_GitLab_sync
+open Git_utils
 open Bench
-open Helpers
 open String_utils
 open Utils
 open Lwt.Infix