@@ -177,14 +177,14 @@ beforeAttrValue tag attrs name = do
177attrValueDQuoted :: TagName -> [Attr] -> AttrName -> Parser Token
177attrValueDQuoted :: TagName -> [Attr] -> AttrName -> Parser Token
178attrValueDQuoted tag attrs name = do
178attrValueDQuoted tag attrs name = do
179 value <- takeWhile (/= '"')
179 value <- takeWhile (/= '"')
180− char '"'
180+ _ <- char '"'
181 afterAttrValueQuoted tag attrs name value
181 afterAttrValueQuoted tag attrs name value
183-- | /§8.2.4.39/: Attribute value (single-quoted) state
183-- | /§8.2.4.39/: Attribute value (single-quoted) state
184attrValueSQuoted :: TagName -> [Attr] -> AttrName -> Parser Token
184attrValueSQuoted :: TagName -> [Attr] -> AttrName -> Parser Token
185attrValueSQuoted tag attrs name = do
185attrValueSQuoted tag attrs name = do
186 value <- takeWhile (/= '\'')
186 value <- takeWhile (/= '\'')
187− char '\''
187+ _ <- char '\''
188 afterAttrValueQuoted tag attrs name value
188 afterAttrValueQuoted tag attrs name value
190-- | /§8.2.4.40/: Attribute value (unquoted) state
190-- | /§8.2.4.40/: Attribute value (unquoted) state
@@ -205,11 +205,11 @@ afterAttrValueQuoted tag attrs name value =
205-- | /§8.2.4.45/: Markup declaration open state
205-- | /§8.2.4.45/: Markup declaration open state
206markupDeclOpen :: Parser Token
206markupDeclOpen :: Parser Token
207markupDeclOpen =
207markupDeclOpen =
208− try comment
208+ try comment_
209 <|> try docType
209 <|> try docType
210 -- TODO: Fix the rest
210 -- TODO: Fix the rest
212− comment = string "--" >> commentStart
212+ comment_ = string "--" >> commentStart
213 docType = do
213 docType = do
214 -- switching this to asciiCI slowed things down by a factor of two
214 -- switching this to asciiCI slowed things down by a factor of two
215 s <- take 7
215 s <- take 7
@@ -258,7 +258,7 @@ commentEnd content = do
258doctype :: Parser Token
258doctype :: Parser Token
259doctype = do
259doctype = do
260 content <- takeTill (=='>')
260 content <- takeTill (=='>')
261− char '>'
261+ _ <- char '>'
262 return $ Doctype content
262 return $ Doctype content
264-- | /§8.2.4.44/: Bogus comment state
264-- | /§8.2.4.44/: Bogus comment state