Add Build.touch

ocaml · Feb 18, 2017 · cbcd501 · cbcd501
1 parent ce8f02e
commit cbcd501
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/src/build.ml b/src/build.ml
@@ -184,3 +184,5 @@ let copy ~src ~dst =
   path src >>>
   create_file ~target:dst (fun () ->
     copy_file ~src:(Path.to_string src) ~dst:(Path.to_string dst))
+
+let touch path = return "" >>> echo path
diff --git a/src/build.mli b/src/build.mli
@@ -85,6 +85,8 @@ val echo : Path.t -> (string, unit) t
 
 val copy : src:Path.t -> dst:Path.t -> (unit, unit) t
 
+val touch : Path.t -> (unit, unit) t
+
 type lib_dep_kind =
   | Optional
   | Required