diff options
| author | Luc Maranget <luc.maranget@inria.fr> | 2005-10-27 16:29:22 +0000 |
|---|---|---|
| committer | Luc Maranget <luc.maranget@inria.fr> | 2005-10-27 16:29:22 +0000 |
| commit | 9863c7340325fa3ba94fdb01662cb5a8c8819f75 (patch) | |
| tree | 3cb2f124102944c8739278acbe4b893370836811 /ocamldoc/odoc_cross.ml | |
| parent | bc23bf52febe053d5dae4210487c69c1309601d3 (diff) | |
| download | ocaml-9863c7340325fa3ba94fdb01662cb5a8c8819f75.tar.gz | |
309
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/jocamltrunk@7205 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_cross.ml')
| -rw-r--r-- | ocamldoc/odoc_cross.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ocamldoc/odoc_cross.ml b/ocamldoc/odoc_cross.ml index cbe949edee..87ecad8b23 100644 --- a/ocamldoc/odoc_cross.ml +++ b/ocamldoc/odoc_cross.ml @@ -313,7 +313,7 @@ let rec associate_in_module module_list (acc_b_modif, acc_incomplete_top_module_ None -> (acc_b, (Name.head m.m_name) :: acc_inc, (* we don't want to output warning messages for "sig ... end" or "struct ... end" modules not found *) - (if ma.ma_name = Odoc_messages.struct_end or + (if ma.ma_name = Odoc_messages.struct_end || ma.ma_name = Odoc_messages.sig_end then acc_names else @@ -374,7 +374,7 @@ and associate_in_module_type module_list (acc_b_modif, acc_incomplete_top_module None -> (acc_b, (Name.head mt.mt_name) :: acc_inc, (* we don't want to output warning messages for "sig ... end" or "struct ... end" modules not found *) - (if mta.mta_name = Odoc_messages.struct_end or + (if mta.mta_name = Odoc_messages.struct_end || mta.mta_name = Odoc_messages.sig_end then acc_names else @@ -407,7 +407,7 @@ and associate_in_module_element module_list m_name (acc_b_modif, acc_incomplete_ None -> (acc_b_modif, (Name.head m_name) :: acc_incomplete_top_module_names, (* we don't want to output warning messages for "sig ... end" or "struct ... end" modules not found *) - (if im.im_name = Odoc_messages.struct_end or + (if im.im_name = Odoc_messages.struct_end || im.im_name = Odoc_messages.sig_end then acc_names_not_found else |