matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix Build.and_create_file

This commit is contained in:
Jeremie Dimino 2017-03-06 10:41:51 +00:00
parent f21217dfbc
commit df883bef75
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/build.ml
View File

@ -191,10 +191,11 @@ let create_file fn =
action ~targets:[fn] (Create_file fn) action ~targets:[fn] (Create_file fn)
let and_create_file fn = let and_create_file fn =
arr (fun (action : Action.t) -> Targets [fn]
{ action with >>^ fun (action : Action.t) ->
action = Progn [action.action; Create_file fn] { action with
}) action = Progn [action.action; Create_file fn]
}
(* (*
{[ {[