method display_string_of_ele = function
ME (Element_module m) ->
Printf.sprintf "module %s" (N.simple m.m_name)
| ME (Element_module_type m) ->
Printf.sprintf "module type %s" (N.simple m.mt_name)
| ME (Element_included_module m) ->
"<include>"
| ME (Element_class c) ->
Printf.sprintf "class %s" (N.simple c.cl_name)
| ME (Element_class_type c) ->
Printf.sprintf "class type %s" (N.simple c.clt_name)
| ME (Element_value v) ->
Printf.sprintf "val %s" (N.simple v.val_name)
| ME (Element_type t) ->
Printf.sprintf "type %s" (N.simple t.ty_name)
| ME (Element_exception e) ->
Printf.sprintf "exception %s" (N.simple e.ex_name)
| ME (Element_module_comment t) ->
Odoc_info.string_of_text t
| CE (Class_attribute a) ->
Printf.sprintf "val %s" (N.simple a.att_value.val_name)
| CE (Class_method m) ->
Printf.sprintf "method %s" (N.simple m.met_value.val_name)
| CE (Class_comment t) ->
Odoc_info.string_of_text t