@@ -206,6 +206,7 @@ commentStart :: Parser Token
206commentStart = do
206commentStart = do
207 (char '-' >> commentStartDash)
207 (char '-' >> commentStartDash)
208 <|> (char '>' >> return (Comment mempty))
208 <|> (char '>' >> return (Comment mempty))
210-- | /§8.2.4.47/: Comment start dash state
211-- | /§8.2.4.47/: Comment start dash state
211commentStartDash :: Parser Token
212commentStartDash :: Parser Token