diff options
author | Florian Angeletti <florian.angeletti@inria.fr> | 2020-01-06 14:24:26 +0100 |
---|---|---|
committer | Florian Angeletti <florian.angeletti@inria.fr> | 2020-01-09 16:45:39 +0100 |
commit | 40e40a9c20c06fa72b56d0852f3c1b3c39acc6ba (patch) | |
tree | fa3221e028f5e51606b045b1f95ebcf93a4e7c11 /driver | |
parent | e667d9fb8d2f6aa891e031fe17b0dbf231a5019a (diff) | |
download | ocaml-40e40a9c20c06fa72b56d0852f3c1b3c39acc6ba.tar.gz |
compilerlibs: expose parsers for 'Longident.t's
Diffstat (limited to 'driver')
-rw-r--r-- | driver/makedepend.ml | 7 |
1 files changed, 6 insertions, 1 deletions
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 |