Fix the build

src/action.ml

@@ -137,6 +137,7 @@ struct
   let remove_tree path = Remove_tree path
   let mkdir path = Mkdir path
   let digest_files files = Digest_files files
+  let promote mode files = Promote { mode; files }
 end
 
 module Make_mapper

src/action.mli

@@ -38,10 +38,11 @@ include Action_intf.Ast
   with type string  := string
 
 include Action_intf.Helpers
-  with type program := Prog.t
-  with type path    := Path.t
-  with type string  := string
-  with type t       := t
+  with type program      := Prog.t
+  with type path         := Path.t
+  with type string       := string
+  with type promote_file := Promote.file
+  with type t            := t
 
 val t : t Sexp.Of_sexp.t
 val sexp_of_t : t Sexp.To_sexp.t

src/action_intf.ml

@@ -48,7 +48,11 @@ module type Ast = sig
 end
 
 module type Helpers = sig
-  include Ast
+  type program
+  type path
+  type string
+  type t
+  type promote_file
 
   val run : program -> string list -> t
   val chdir : path -> t -> t
@@ -72,4 +76,5 @@ module type Helpers = sig
   val remove_tree : path -> t
   val mkdir : path -> t
   val digest_files : path list -> t
+  val promote : Promote_mode.t -> promote_file list -> t
 end