@@ -177,14 +177,14 @@ beforeAttrValue tag attrs name = do
177177attrValueDQuoted :: TagName -> [Attr] -> AttrName -> Parser Token
178178attrValueDQuoted tag attrs name = do
179179 value <- takeWhile (/= '"')
180− char '"'
180+ _ <- char '"'
181181 afterAttrValueQuoted tag attrs name value
182182
183183-- | /§8.2.4.39/: Attribute value (single-quoted) state
184184attrValueSQuoted :: TagName -> [Attr] -> AttrName -> Parser Token
185185attrValueSQuoted tag attrs name = do
186186 value <- takeWhile (/= '\'')
187− char '\''
187+ _ <- char '\''
188188 afterAttrValueQuoted tag attrs name value
189189
190190-- | /§8.2.4.40/: Attribute value (unquoted) state
@@ -205,11 +205,11 @@ afterAttrValueQuoted tag attrs name value =
205205-- | /§8.2.4.45/: Markup declaration open state
206206markupDeclOpen :: Parser Token
207207markupDeclOpen =
208− try comment
208+ try comment_
209209 <|> try docType
210210 -- TODO: Fix the rest
211211 where
212− comment = string "--" >> commentStart
212+ comment_ = string "--" >> commentStart
213213 docType = do
214214 -- switching this to asciiCI slowed things down by a factor of two
215215 s <- take 7
@@ -258,7 +258,7 @@ commentEnd content = do
258258doctype :: Parser Token
259259doctype = do
260260 content <- takeTill (=='>')
261− char '>'
261+ _ <- char '>'
262262 return $ Doctype content
263263
264264-- | /§8.2.4.44/: Bogus comment state