Handle case when module alias exists
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
c8970ab977
commit
dfd3b1083c
|
@ -197,7 +197,8 @@ end = struct
|
||||||
| Simple true -> (wrap_modules modules, Module.Name.Map.empty)
|
| Simple true -> (wrap_modules modules, Module.Name.Map.empty)
|
||||||
| Yes_with_transition _ ->
|
| Yes_with_transition _ ->
|
||||||
( wrap_modules modules
|
( wrap_modules modules
|
||||||
, Module.Name.Map.map ~f:Module.deprecate modules
|
, Module.Name.Map.remove modules main_module_name
|
||||||
|
|> Module.Name.Map.map ~f:Module.deprecate
|
||||||
)
|
)
|
||||||
in
|
in
|
||||||
let alias_module =
|
let alias_module =
|
||||||
|
|
|
@ -0,0 +1,3 @@
|
||||||
|
module Bar = Bar
|
||||||
|
module Foo = Foo
|
||||||
|
module Intf_only = Intf_only
|
Loading…
Reference in New Issue