concat -text +html

concatHtml :: HTML a => [a] -> Html
html Text.Html