diff options
author | Alain Frisch <alain@frisch.fr> | 2016-03-10 00:21:42 +0100 |
---|---|---|
committer | alainfrisch <alain@frisch.fr> | 2016-03-15 22:47:33 +0100 |
commit | b8e418e9f3e8464314111404e2207d65d04d4a05 (patch) | |
tree | 7d764d62b49224ad63b8325c9ca7b155a54f08bd /ocamldoc/odoc_print.ml | |
parent | f2b45c0d0f5ed5afefd6e5c72f91e62d8dbea55d (diff) | |
download | ocaml-b8e418e9f3e8464314111404e2207d65d04d4a05.tar.gz |
More warnings for ocamldoc.
Diffstat (limited to 'ocamldoc/odoc_print.ml')
-rw-r--r-- | ocamldoc/odoc_print.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ocamldoc/odoc_print.ml b/ocamldoc/odoc_print.ml index 4ff1b29a15..4e07386ee1 100644 --- a/ocamldoc/odoc_print.ml +++ b/ocamldoc/odoc_print.ml @@ -53,8 +53,8 @@ exception Use_code of string let simpl_module_type ?code t = let rec iter t = match t with - Types.Mty_ident p -> t - | Types.Mty_alias p -> t + Types.Mty_ident _ + | Types.Mty_alias _ -> t | Types.Mty_signature _ -> ( match code with @@ -79,7 +79,7 @@ let string_of_module_type ?code ?(complete=false) t = let simpl_class_type t = let rec iter t = match t with - Types.Cty_constr (p,texp_list,ct) -> t + Types.Cty_constr _ -> t | Types.Cty_signature cs -> (* we delete vals and methods in order to not print them when displaying the type *) |