From ad8020b105026e388a5266d530977fc14052b036 Mon Sep 17 00:00:00 2001 From: Anthony Ramine Date: Sun, 9 Feb 2014 15:02:13 +0100 Subject: Handle nonempty list types in docgen_edoc_xml_cb --- lib/erl_docgen/src/docgen_edoc_xml_cb.erl | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lib/erl_docgen/src/docgen_edoc_xml_cb.erl') diff --git a/lib/erl_docgen/src/docgen_edoc_xml_cb.erl b/lib/erl_docgen/src/docgen_edoc_xml_cb.erl index e3cc354206..c77d739731 100644 --- a/lib/erl_docgen/src/docgen_edoc_xml_cb.erl +++ b/lib/erl_docgen/src/docgen_edoc_xml_cb.erl @@ -1014,6 +1014,8 @@ t_type([#xmlElement{name = nil}]) -> t_nil(); t_type([#xmlElement{name = list, content = Es}]) -> t_list(Es); +t_type([#xmlElement{name = nonempty_list, content = Es}]) -> + t_nonempty_list(Es); t_type([#xmlElement{name = tuple, content = Es}]) -> t_tuple(Es); t_type([#xmlElement{name = 'fun', content = Es}]) -> @@ -1046,6 +1048,9 @@ t_nil() -> t_list(Es) -> ["["] ++ t_utype(get_elem(type, Es)) ++ ["]"]. +t_nonempty_list(Es) -> + ["["] ++ t_utype(get_elem(type, Es)) ++ [", ...]"]. + t_tuple(Es) -> ["{"] ++ seq(fun t_utype_elem/1, Es, ["}"]). -- cgit v1.2.3