diff options
| -rw-r--r-- | ocamlbuild/rule.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ocamlbuild/rule.ml b/ocamlbuild/rule.ml index ea7038815..e717c3da9 100644 --- a/ocamlbuild/rule.ml +++ b/ocamlbuild/rule.ml @@ -310,10 +310,11 @@ let gen_rule name ?(tags=[]) ?(prods=[]) ?(deps=[]) ?prod ?dep ?stamp ?(insert = end xs init in if prods = [] && prod = None && stamp = None then raise (Exit_rule_error "Can't make a rule that produce nothing"); - let stamp = + let stamp, prods = match stamp with - | None -> None - | Some stamp -> Some (Resource.import_pattern stamp) + | None -> None, prods + | Some stamp -> + Some (Resource.import_pattern stamp), stamp :: prods in let prods = res_add Resource.import_pattern prods prod in add_rule insert |