Use parsing context when parsing name, version, raw triple of sub sys…

…tems Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
ocaml · Jul 2, 2018 · 8db47b2 · 8db47b2
1 parent 5afad68
commit 8db47b2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 ->