diff --git a/src/gen_rules.ml b/src/gen_rules.ml index 767b2ef6..57b1a734 100644 --- a/src/gen_rules.ml +++ b/src/gen_rules.ml @@ -899,6 +899,7 @@ let gen ~contexts ?(filter_out_optional_stanzas_with_missing_deps=true) List.filter stanzas ~f:(fun stanza -> match (stanza : Stanza.t) with | Library { public = Some { package; _ }; _ } + | Alias { package = Some package ; _ } | Install { package = Some package; _ } -> String_set.mem package pkgs | _ -> true))) diff --git a/src/jbuild_types.ml b/src/jbuild_types.ml index 2beae44c..f6759555 100644 --- a/src/jbuild_types.ml +++ b/src/jbuild_types.ml @@ -807,16 +807,19 @@ module Alias_conf = struct { name : string ; deps : Dep_conf.t list ; action : Action.Mini_shexp.Unexpanded.t option + ; package : string option } let common = - field "name" string >>= fun name -> - field "deps" (list Dep_conf.t) ~default:[] >>= fun deps -> + field "name" string >>= fun name -> + field "deps" (list Dep_conf.t) ~default:[] >>= fun deps -> + field_o "package" string >>= fun package -> field_o "action" Action.Mini_shexp.Unexpanded.t >>= fun action -> return { name ; deps ; action + ; package } let v1 = record common