Fix the build
This commit is contained in:
parent
af5d7f5e6f
commit
ce901a4731
|
@ -137,6 +137,7 @@ struct
|
||||||
let remove_tree path = Remove_tree path
|
let remove_tree path = Remove_tree path
|
||||||
let mkdir path = Mkdir path
|
let mkdir path = Mkdir path
|
||||||
let digest_files files = Digest_files files
|
let digest_files files = Digest_files files
|
||||||
|
let promote mode files = Promote { mode; files }
|
||||||
end
|
end
|
||||||
|
|
||||||
module Make_mapper
|
module Make_mapper
|
||||||
|
|
|
@ -38,10 +38,11 @@ include Action_intf.Ast
|
||||||
with type string := string
|
with type string := string
|
||||||
|
|
||||||
include Action_intf.Helpers
|
include Action_intf.Helpers
|
||||||
with type program := Prog.t
|
with type program := Prog.t
|
||||||
with type path := Path.t
|
with type path := Path.t
|
||||||
with type string := string
|
with type string := string
|
||||||
with type t := t
|
with type promote_file := Promote.file
|
||||||
|
with type t := t
|
||||||
|
|
||||||
val t : t Sexp.Of_sexp.t
|
val t : t Sexp.Of_sexp.t
|
||||||
val sexp_of_t : t Sexp.To_sexp.t
|
val sexp_of_t : t Sexp.To_sexp.t
|
||||||
|
|
|
@ -48,7 +48,11 @@ module type Ast = sig
|
||||||
end
|
end
|
||||||
|
|
||||||
module type Helpers = sig
|
module type Helpers = sig
|
||||||
include Ast
|
type program
|
||||||
|
type path
|
||||||
|
type string
|
||||||
|
type t
|
||||||
|
type promote_file
|
||||||
|
|
||||||
val run : program -> string list -> t
|
val run : program -> string list -> t
|
||||||
val chdir : path -> t -> t
|
val chdir : path -> t -> t
|
||||||
|
@ -72,4 +76,5 @@ module type Helpers = sig
|
||||||
val remove_tree : path -> t
|
val remove_tree : path -> t
|
||||||
val mkdir : path -> t
|
val mkdir : path -> t
|
||||||
val digest_files : path list -> t
|
val digest_files : path list -> t
|
||||||
|
val promote : Promote_mode.t -> promote_file list -> t
|
||||||
end
|
end
|
||||||
|
|
Loading…
Reference in New Issue