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