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)
let and_create_file fn =
arr (fun (action : Action.t) ->
{ action with
action = Progn [action.action; Create_file fn]
})
Targets [fn]
>>^ fun (action : Action.t) ->
{ action with
action = Progn [action.action; Create_file fn]
}
(*
{[