diff options
| author |  Pierre Letouzey <pierre.letouzey@inria.fr> | 2015-10-25 12:14:12 +0100 |
|---|---|---|
| committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2015-10-25 12:14:12 +0100 |
| commit | c2de48c3f59415eaf0f2cbb5cfe78f23e908a459 (patch) | |
| tree | cfabd3b72d81389cf4a7a93cb656534a570ca6ef /kernel/mod_typing.mli | |
| parent | 1b029b2163386f20179a61f6bdb68e5532f4c306 (diff) | |
Minor module cleanup : error HigherOrderInclude was never happening
When F is a Functor, doing an 'Include F' triggers the 'Include Self'
mechanism: the current context is used as an pseudo-argument to F.
This may fail with a subtype error if the current context isn't adequate.
Diffstat (limited to 'kernel/mod_typing.mli')
| -rw-r--r-- | kernel/mod_typing.mli | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/mod_typing.mli b/kernel/mod_typing.mli index 80db12b0d..0c3fb2ba7 100644 --- a/kernel/mod_typing.mli +++ b/kernel/mod_typing.mli @@ -36,6 +36,9 @@ val translate_mse : env -> module_path option -> inline -> module_struct_entry -> module_alg_expr translation +(** [translate_mse_incl] translate the mse of a real module (no + module type here) given to an Include *) + val translate_mse_incl : env -> module_path -> inline -> module_struct_entry -> module_alg_expr translation |