jon.recoil.org

Module Includemod.Error

type ('elt, 'explanation) mdiff = {
  1. got : 'elt;
  2. expected : 'elt;
  3. modes : Ocaml_typing.Includecore.mmodes;
  4. symptom : 'explanation;
}
type ('elt, 'explanation) diff = {
  1. got : 'elt;
  2. expected : 'elt;
  3. symptom : 'explanation;
}
type 'elt core_diff = ('elt, unit) Ocaml_typing.Includemod.Error.diff
type 'elt core_mdiff = ('elt, unit) Ocaml_typing.Includemod.Error.mdiff
type functor_arg_descr =
  1. | Anonymous
  2. | Named of Ocaml_typing.Path.t
  3. | Unit
  4. | Empty_struct
    (*

    For backward compatibility's sake, an empty struct can be implicitly converted to an unit module.

    *)
type class_declaration_symptom =
  1. | Class_type of Ocaml_typing.Ctype.class_match_failure list
  2. | Class_mode of Ocaml_typing.Mode.Value.error
type core_module_type_symptom =
  1. | Not_an_alias
  2. | Not_an_identifier
  3. | Incompatible_aliases
  4. | Abstract_module_type
  5. | Unbound_module_path of Ocaml_typing.Path.t
and ('arg, 'path) functor_param_symptom =
  1. | Incompatible_params of 'arg * Ocaml_typing.Types.functor_parameter
  2. | Mismatch of Ocaml_typing.Includemod.Error.module_type_diff
and signature_symptom = {
  1. env : Ocaml_typing.Env.t;
  2. missings : Ocaml_typing.Types.signature_item list;
  3. incompatibles : (Ocaml_typing.Ident.t * Ocaml_typing.Includemod.Error.sigitem_symptom) list;
    (*

    signature items that could not be compared due to type divergence

    *)
}
and module_type_declaration_symptom =
  1. | Illegal_permutation of Ocaml_typing.Typedtree.module_coercion
  2. | Not_greater_than of Ocaml_typing.Includemod.Error.module_type_diff
  3. | Not_less_than of Ocaml_typing.Includemod.Error.module_type_diff
  4. | Incomparable of {
    1. less_than : Ocaml_typing.Includemod.Error.module_type_diff;
    2. greater_than : Ocaml_typing.Includemod.Error.module_type_diff;
    }
type compilation_unit_comparison =
  1. | Implementation_vs_interface
  2. | Argument_vs_parameter