From ce901a473159aee5e24396915219336d642a6daf Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Mon, 15 Jan 2018 13:50:08 +0000
Subject: [PATCH] Fix the build

---
 src/action.ml      | 1 +
 src/action.mli     | 9 +++++----
 src/action_intf.ml | 7 ++++++-
 3 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/src/action.ml b/src/action.ml
index 0c4e870c..10e49a8b 100644
--- a/src/action.ml
+++ b/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
diff --git a/src/action.mli b/src/action.mli
index 9ab4c3d7..2dbd3435 100644
--- a/src/action.mli
+++ b/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
diff --git a/src/action_intf.ml b/src/action_intf.ml
index 962ae3b4..9dab6e06 100644
--- a/src/action_intf.ml
+++ b/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