From df883bef75b476c2b6ff3011182d8bd80aad2a76 Mon Sep 17 00:00:00 2001 From: Jeremie Dimino Date: Mon, 6 Mar 2017 10:41:51 +0000 Subject: [PATCH] Fix Build.and_create_file --- src/build.ml | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/build.ml b/src/build.ml index 9d34c4ff..7c6d2054 100644 --- a/src/build.ml +++ b/src/build.ml @@ -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] + } (* {[