buildContentDecl (ContentMixed names) =
  buildChoice fromText ("#PCDATA" : names) <> singleton '*'
buildContentDecl (ContentMixed names) =
  buildChoice fromText ("#PCDATA" : names) <> singleton '*'
buildContentDecl (ContentMixed names) =
  buildChoice fromText ("#PCDATA" : names) <> singleton '*'