Fix check for dependency on the lib interface module

This commit is contained in:
Jeremie Dimino 2017-06-15 12:50:42 +01:00
parent 574866af2e
commit 34df3d5fd9
1 changed files with 6 additions and 1 deletions

View File

@ -30,7 +30,12 @@ let parse_deps ~dir lines ~modules ~alias_module ~lib_interface_module =
(match lib_interface_module with
| None -> ()
| Some (m : Module.t) ->
if unit <> m.name && List.mem m.name ~set:deps then
let is_alias_module =
match alias_module with
| None -> false
| Some (m : Module.t) -> unit = m.name
in
if unit <> m.name && not is_alias_module && List.mem m.name ~set:deps then
die "Module %s in directory %s depends on %s.\n\
This doesn't make sense to me.\n\
\n\