diff options
| -rw-r--r-- | ocamldoc/odoc_info.mli | 5 | ||||
| -rw-r--r-- | ocamldoc/odoc_type.ml | 15 |
2 files changed, 13 insertions, 7 deletions
diff --git a/ocamldoc/odoc_info.mli b/ocamldoc/odoc_info.mli index f5ad42ddf..edf356073 100644 --- a/ocamldoc/odoc_info.mli +++ b/ocamldoc/odoc_info.mli @@ -187,6 +187,9 @@ module Exception : (** Representation and manipulation of types.*) module Type : sig + type private_flag = Odoc_type.private_flag = + Private | Public + (** Description of a variant type constructor. *) type variant_constructor = Odoc_type.variant_constructor = { @@ -220,7 +223,7 @@ module Type : ty_parameters : (Types.type_expr * bool * bool) list ; (** type parameters: (type, covariant, contravariant) *) ty_kind : type_kind; (** Type kind. *) - ty_private : Asttypes.private_flag; (** Private or public type. *) + ty_private : private_flag; (** Private or public type. *) ty_manifest : Types.type_expr option; (** Type manifest. *) mutable ty_loc : location ; mutable ty_code : string option; diff --git a/ocamldoc/odoc_type.ml b/ocamldoc/odoc_type.ml index eaaca5dc7..220a91a4e 100644 --- a/ocamldoc/odoc_type.ml +++ b/ocamldoc/odoc_type.ml @@ -15,12 +15,15 @@ module Name = Odoc_name +type private_flag = Asttypes.private_flag = + Private | Public + (** Description of a variant type constructor. *) type variant_constructor = { vc_name : string ; vc_args : Types.type_expr list ; (** arguments of the constructor *) mutable vc_text : Odoc_types.text option ; (** optional user description *) - } + } (** Description of a record type field. *) type record_field = { @@ -28,10 +31,10 @@ type record_field = { rf_mutable : bool ; (** true if mutable *) rf_type : Types.type_expr ; mutable rf_text : Odoc_types.text option ; (** optional user description *) - } + } (** The various kinds of type. *) -type type_kind = +type type_kind = Type_abstract | Type_variant of variant_constructor list (** constructors *) @@ -42,12 +45,12 @@ type type_kind = type t_type = { ty_name : Name.t ; mutable ty_info : Odoc_types.info option ; (** optional user information *) - ty_parameters : (Types.type_expr * bool * bool) list ; + ty_parameters : (Types.type_expr * bool * bool) list ; (** type parameters: (type, covariant, contravariant) *) ty_kind : type_kind ; - ty_private : Asttypes.private_flag; + ty_private : private_flag; ty_manifest : Types.type_expr option; (** type manifest *) mutable ty_loc : Odoc_types.location ; mutable ty_code : string option; - } + } |