diff options
| author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2010-05-03 15:06:17 +0000 |
|---|---|---|
| committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2010-05-03 15:06:17 +0000 |
| commit | 6fa137373ceec3624156bb1511cd7eae4f56dba5 (patch) | |
| tree | 446178fb2918973a177b0bba95258dad5f3552a9 /ocamldoc/odoc_to_text.ml | |
| parent | 7325d7c1f19e11ee1c2a9804446a03438aff5ff5 (diff) | |
| download | ocaml-6fa137373ceec3624156bb1511cd7eae4f56dba5.tar.gz | |
ocamldoc: handle Pmod_unpack and Tmod_unpack
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@10355 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_to_text.ml')
| -rw-r--r-- | ocamldoc/odoc_to_text.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ocamldoc/odoc_to_text.ml b/ocamldoc/odoc_to_text.ml index e3f53383f3..a3db5bd9ba 100644 --- a/ocamldoc/odoc_to_text.ml +++ b/ocamldoc/odoc_to_text.ml @@ -549,6 +549,12 @@ class virtual to_text = s in [Code code] + | Module_unpack (code, _) -> + let code = Printf.sprintf "%s%s" + (if with_def_syntax then " : " else "") + code + in + [Code code] (** Return html code for a [module_type_kind].*) method text_of_module_type_kind ?(with_def_syntax=true) tk = |