Merge pull request #46 from reynir/git-commit-message

Yocaml_git: Allow specifying a commit message
xhtmlboi · Nov 15, 2023 · 76b27c6 · 76b27c6
2 parents 3c413fd + 6a79498
commit 76b27c6
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/lib/yocaml_git/yocaml_git.ml b/lib/yocaml_git/yocaml_git.ml
@@ -1,13 +1,13 @@
 let execute
   :  (module Runtime.RUNTIME) -> (module Mirage_clock.PCLOCK) -> ctx:Mimic.ctx
-  -> ?author:string -> ?email:string -> string -> 'a Yocaml.Effect.t
+  -> ?author:string -> ?email:string -> ?comment:string -> string -> 'a Yocaml.Effect.t
   -> ('a, [> `Msg of string ]) result Lwt.t
   =
- fun (module Source) (module Pclock) ~ctx ?author ?email remote program ->
+ fun (module Source) (module Pclock) ~ctx ?author ?email ?comment remote program ->
   let open Lwt.Syntax in
   let* store = Git_kv.connect ctx remote in
   let module Store = Git_kv.Make (Pclock) in
-  Store.change_and_push ?author ?author_email:email store
+  Store.change_and_push ?author ?author_email:email ?message:comment store
   @@ fun store ->
   let module R0 =
     Runtime.Make (Source) (Pclock)

diff --git a/lib/yocaml_git/yocaml_git.mli b/lib/yocaml_git/yocaml_git.mli
@@ -16,6 +16,7 @@ val execute
   -> ctx:Mimic.ctx
   -> ?author:string
   -> ?email:string
+  -> ?comment:string
   -> string
   -> 'a Yocaml.Effect.t
   -> ('a, [> `Msg of string ]) result Lwt.t