diff options
Diffstat (limited to 'kernel/mod_typing.ml')
| -rw-r--r-- | kernel/mod_typing.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/kernel/mod_typing.ml b/kernel/mod_typing.ml index 2c00fe52e1..0fb79376ab 100644 --- a/kernel/mod_typing.ml +++ b/kernel/mod_typing.ml @@ -162,7 +162,9 @@ and translate_module env is_definition me = | Some mexpr, _ -> let meq_o = (* do we have a transparent module ? *) try (* TODO: transparent field in module_entry *) - Some (path_of_mexpr mexpr) + match me.mod_entry_type with + | None -> Some (path_of_mexpr mexpr) + | Some _ -> None with | Not_path -> None in |