Internal.Parse_parts
type part_meta = {
sep_indent : string;
name : string;
}
type t =
| Content of string
| Compat_attr of part_meta
| Part_begin of part_meta
| Part_end
val parse : string -> (t list, [> `Msg of string ]) result