diff options
Diffstat (limited to 'ocamldoc/odoc_str.ml')
| -rw-r--r-- | ocamldoc/odoc_str.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ocamldoc/odoc_str.ml b/ocamldoc/odoc_str.ml index 00d12ec66..74ac8453d 100644 --- a/ocamldoc/odoc_str.ml +++ b/ocamldoc/odoc_str.ml @@ -31,8 +31,8 @@ let string_of_type t = (match t.M.ty_kind with M.Type_abstract -> "" - | M.Type_variant l -> - "=\n"^ + | M.Type_variant (l, priv) -> + "="^(if priv then " private" else "")^"\n"^ (String.concat "" (List.map (fun cons -> @@ -53,8 +53,8 @@ let string_of_type t = l ) ) - | M.Type_record l -> - "= {\n"^ + | M.Type_record (l, priv) -> + "= "^(if priv then "private " else "")^"{\n"^ (String.concat "" (List.map (fun record -> |