diff options
| author | Alain Frisch <alain@frisch.fr> | 2013-09-27 10:54:55 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2013-09-27 10:54:55 +0000 |
| commit | 645dcf25e5d165b90bea465b7d74471d6ee369c2 (patch) | |
| tree | c3dc559ac5634b48fd6a43265688fcd6c3041f6e /ocamldoc | |
| parent | 6873f39817f10b3b132a3043633cc7f1e27c8d0a (diff) | |
| download | ocaml-645dcf25e5d165b90bea465b7d74471d6ee369c2.tar.gz | |
Keep location and attributes in type, label and constructor declarations. Deprecated warning when a deprecated type or constructor is referenced.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14191 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc')
| -rw-r--r-- | ocamldoc/odoc_sig.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ocamldoc/odoc_sig.ml b/ocamldoc/odoc_sig.ml index da70778c4e..0cd837399b 100644 --- a/ocamldoc/odoc_sig.ml +++ b/ocamldoc/odoc_sig.ml @@ -219,7 +219,7 @@ module Analyser = Types.Type_abstract -> Odoc_type.Type_abstract | Types.Type_variant l -> - let f (constructor_name, type_expr_list, ret_type) = + let f {Types.cd_id=constructor_name;cd_args=type_expr_list;cd_res=ret_type} = let constructor_name = Ident.name constructor_name in let comment_opt = try @@ -238,7 +238,7 @@ module Analyser = Odoc_type.Type_variant (List.map f l) | Types.Type_record (l, _) -> - let f (field_name, mutable_flag, type_expr) = + let f {Types.ld_id=field_name;ld_mutable=mutable_flag;ld_type=type_expr} = let field_name = Ident.name field_name in let comment_opt = try |