From 044c78281d850bd7f654923da8ca10f7244cb276 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Mon, 2 Jul 2018 15:05:15 +0700
Subject: [PATCH] Use parsing context when parsing name, version, raw triple of
 sub systems

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
---
 src/installed_dune_file.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/installed_dune_file.ml b/src/installed_dune_file.ml
index 089b108e..ad7fbf9a 100644
--- 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 ->