@@ -412,8 +412,8 @@ renderAttrs = T.unwords . fmap renderAttr . reverse
412412renderAttr :: Attr -> Text
413413renderAttr (Attr k v) = mconcat [k, "=\"", v, "\""]
414414
415−-- | Meld neighoring 'ContentChar' and 'ContentText' constructors together and drops empty text
416−-- elements.
415+-- | Meld neighoring 'ContentChar' and 'ContentText'
416+-- constructors together and drops empty text elements.
417417canonicalizeTokens :: [Token] -> [Token]
418418canonicalizeTokens = filter (/= ContentText "") . meldTextTokens
419419