From 40e40a9c20c06fa72b56d0852f3c1b3c39acc6ba Mon Sep 17 00:00:00 2001
From: Florian Angeletti <florian.angeletti@inria.fr>
Date: Mon, 6 Jan 2020 14:24:26 +0100
Subject: compilerlibs: expose parsers for 'Longident.t's

---
 driver/makedepend.ml | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'driver')

diff --git a/driver/makedepend.ml b/driver/makedepend.ml
index 4942eab0f8..47222b4137 100644
--- a/driver/makedepend.ml
+++ b/driver/makedepend.ml
@@ -310,7 +310,12 @@ let read_parse_and_extract parse_function extract_function def ast_kind
       let bound_vars =
         List.fold_left
           (fun bv modname ->
-            Depend.open_module bv (Longident.parse modname))
+             let lid =
+               let lexbuf = Lexing.from_string modname in
+               Location.init lexbuf
+                 (Printf.sprintf "command line argument: -open %S" modname);
+               Parse.simple_module_path lexbuf in
+             Depend.open_module bv lid)
           !module_map ((* PR#7248 *) List.rev !Clflags.open_modules)
       in
       let r = extract_function bound_vars ast in
-- 
cgit v1.2.1