@@ -145,13 +145,15 @@ beforeAttrValue tag attrs name = do
145-- | 8.2.4.38: Attribute value (double-quoted) state
145-- | 8.2.4.38: Attribute value (double-quoted) state
146attrValueDQuoted :: TagName -> [Attr] -> AttrName -> Parser Token
146attrValueDQuoted :: TagName -> [Attr] -> AttrName -> Parser Token
147attrValueDQuoted tag attrs name = do
147attrValueDQuoted tag attrs name = do
148− value <- takeTill (/= '"')
148+ value <- takeWhile (/= '"')
149 afterAttrValueQuoted tag attrs name value
150 afterAttrValueQuoted tag attrs name value
151-- | 8.2.4.39: Attribute value (single-quoted) state
152-- | 8.2.4.39: Attribute value (single-quoted) state
152attrValueSQuoted :: TagName -> [Attr] -> AttrName -> Parser Token
153attrValueSQuoted :: TagName -> [Attr] -> AttrName -> Parser Token
153attrValueSQuoted tag attrs name = do
154attrValueSQuoted tag attrs name = do
154− value <- takeTill (/= '\'')
155+ value <- takeWhile (/= '\'')
155 afterAttrValueQuoted tag attrs name value
157 afterAttrValueQuoted tag attrs name value
157-- | 8.2.4.40: Attribute value (unquoted) state
159-- | 8.2.4.40: Attribute value (unquoted) state