Includemod.Error
type 'elt core_diff = ('elt, unit) diff
type functor_arg_descr =
| Anonymous
| Named of Path.t
| Unit
| Empty_struct
For backward compatibility's sake, an empty struct can be implicitly converted to an unit module.
*)type core_sigitem_symptom =
| Value_descriptions of (Types.value_description, Includecore.value_mismatch)
diff
| Type_declarations of (Types.type_declaration, Includecore.type_mismatch) diff
| Extension_constructors of (Types.extension_constructor,
Includecore.extension_constructor_mismatch)
diff
| Class_type_declarations of (Types.class_type_declaration,
Ctype.class_match_failure list)
diff
| Class_declarations of (Types.class_declaration, Ctype.class_match_failure list)
diff
type core_module_type_symptom =
| Not_an_alias
| Not_an_identifier
| Incompatible_aliases
| Abstract_module_type
| Unbound_module_path of Path.t
type module_type_symptom =
| Mt_core of core_module_type_symptom
| Signature of signature_symptom
| Functor of functor_symptom
| Invalid_module_alias of Path.t
| After_alias_expansion of module_type_diff
and module_type_diff = (Types.module_type, module_type_symptom) diff
and ('arg, 'path) functor_param_symptom =
| Incompatible_params of 'arg * Types.functor_parameter
| Mismatch of module_type_diff
and arg_functor_param_symptom =
(Types.functor_parameter, Ident.t) functor_param_symptom
and functor_params_diff =
(Types.functor_parameter list * Types.module_type) core_diff
and signature_symptom = {
env : Env.t;
missings : Types.signature_item list;
incompatibles : (Ident.t * sigitem_symptom) list;
oks : (int * Typedtree.module_coercion) list;
leftovers : (Types.signature_item as 'it * 'it * int) list;
signature items that could not be compared due to type divergence
*)}
and sigitem_symptom =
| Core of core_sigitem_symptom
| Module_type_declaration of (Types.modtype_declaration,
module_type_declaration_symptom)
diff
| Module_type of module_type_diff
and module_type_declaration_symptom =
| Illegal_permutation of Typedtree.module_coercion
| Not_greater_than of module_type_diff
| Not_less_than of module_type_diff
| Incomparable of {
less_than : module_type_diff;
greater_than : module_type_diff;
}
type all =
| In_Compilation_unit of (string, signature_symptom) diff
| In_Signature of signature_symptom
| In_Module_type of module_type_diff
| In_Module_type_substitution of Ident.t
* (Types.module_type, module_type_declaration_symptom) diff
| In_Type_declaration of Ident.t * core_sigitem_symptom
| In_Expansion of core_module_type_symptom