diff options
| author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2003-07-04 09:31:03 +0000 |
|---|---|---|
| committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2003-07-04 09:31:03 +0000 |
| commit | a1434b747088633bd2dac2a5ad14ff7ace84aa0b (patch) | |
| tree | 9f060e19e9d36b135f5cb12e75f11e4981e94b0d /ocamldoc/odoc_html.ml | |
| parent | 708dfa5e88abd8bb03484d604c89b10e0b6c3764 (diff) | |
gestion des types private
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5655 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_html.ml')
| -rw-r--r-- | ocamldoc/odoc_html.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ocamldoc/odoc_html.ml b/ocamldoc/odoc_html.ml index 09e6a5870..4dbe44aeb 100644 --- a/ocamldoc/odoc_html.ml +++ b/ocamldoc/odoc_html.ml @@ -910,8 +910,8 @@ class html = (match t.ty_manifest with None -> "" | Some typ -> "= "^(self#html_of_type_expr father typ)^" ")^ (match t.ty_kind with Type_abstract -> "</pre>" - | Type_variant l -> - "="^ + | Type_variant (l, priv) -> + "= "^(if priv then "private" else "")^ "</pre><table class=\"typetable\">\n"^ (String.concat "\n" (List.map @@ -954,8 +954,8 @@ class html = )^ "</table>\n" - | Type_record l -> - "= {"^ + | Type_record (l, priv) -> + "= "^(if priv then "private " else "")^"{"^ "</pre><table class=\"typetable\">\n"^ (String.concat "\n" (List.map |