Slightly better implementation of Build.action_dyn

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
ocaml · Feb 6, 2019 · 881295d · 881295d
1 parent 9beb943
commit 881295d
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/build.ml b/src/build.ml
@@ -221,11 +221,12 @@ let action ?dir ~targets action =
   | Some dir -> Action.Chdir (dir, action)
 
 let action_dyn ?dir ~targets () =
-  Targets targets
-  >>^ fun action ->
   match dir with
-  | None -> action
-  | Some dir -> Action.Chdir (dir, action)
+  | None -> Targets targets
+  | Some dir ->
+    Targets targets
+    >>^ fun action ->
+    Action.Chdir (dir, action)
 
 let write_file fn s =
   action ~targets:[fn] (Write_file (fn, s))