Use parsing context when parsing name, version, raw triple of sub systems

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
2018-07-02 15:05:15 +07:00 · 2018-07-02 15:05:15 +07:00 · 044c78281d
parent 0051aeca29
commit 044c78281d
1 changed files with 1 additions and 1 deletions
--- a/src/installed_dune_file.ml
+++ b/src/installed_dune_file.ml
@ -4,7 +4,7 @@ let parse_sub_systems ~parsing_context sexps =
  List.filter_map sexps ~f:(fun sexp ->
    let name, ver, data =
      Sexp.Of_sexp.(parse (triple string (located Syntax.Version.t) raw)
-                      Univ_map.empty) sexp
+                      parsing_context) sexp
    in
    match Sub_system_name.get name with
    | None ->