matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compute the transitive closure of ppx runtime deps only when needed 

We only need it when the kind is ppx_rewriter or ppx_deriver.
This commit is contained in:
Jeremie Dimino 2018-01-24 18:12:50 +00:00
parent fde877838b
commit ad9b82e92a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/gen_meta.ml
View File

@ -93,7 +93,7 @@ let gen_lib pub_name (lib : Library.t) ~lib_deps ~ppx_runtime_deps:ppx_rt_deps
[ [ Comment "This line makes things transparent for people mixing \ [ [ Comment "This line makes things transparent for people mixing \
preprocessors" preprocessors"
; Comment "and normal dependencies" ; Comment "and normal dependencies"
; requires ~preds:[no_ppx_driver] ppx_runtime_deps_for_deprecated_method ; requires ~preds:[no_ppx_driver] (Lazy.force ppx_runtime_deps_for_deprecated_method)
] ]
; match lib.kind with ; match lib.kind with
| Normal -> assert false | Normal -> assert false
@ -155,12 +155,12 @@ let gen ~package ~version ~stanzas ~resolve_lib_dep_names
Sigh... Sigh...
*) *)
let ppx_runtime_deps_for_deprecated_method = let ppx_runtime_deps_for_deprecated_method = lazy (
String_set.union String_set.union
(String_set.of_list ppx_runtime_deps) (String_set.of_list ppx_runtime_deps)
(ppx_runtime_deps_for_deprecated_method_exn ~dir (ppx_runtime_deps_for_deprecated_method_exn ~dir
lib.buildable.libraries) lib.buildable.libraries)
|> String_set.elements |> String_set.elements)
in in
(pub_name, (pub_name,
gen_lib pub_name lib ~lib_deps ~ppx_runtime_deps ~version gen_lib pub_name lib ~lib_deps ~ppx_runtime_deps ~version