danneu/html-parser
1
0
Fork 0
mirror of https://github.com/danneu/html-parser.git synced 2024-11-25 08:19:17 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix unquoted ref in attribute value

Browse Source 
Fixes regression of 4924cd6924
This commit is contained in:
Dan Neumann 2022-06-02 20:40:14 -05:00
parent 2042b27a04
commit 9bd9d39a8d
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Html/Parser.elm
View File

@ -298,10 +298,8 @@ isSpace c =
attributeValueUnquoted : Config -> Parser String
attributeValueUnquoted cfg =
let
-- isUnquotedValueChar c =
-- not (isSpace c) && c /= '"' && c /= '\'' && c /= '=' && c /= '<' && c /= '>' && c /= '`' && c /= '&'
isLenientUnquotedValueChar c =
not (isSpace c) && c /= '>'
not (isSpace c) && c /= '>' && c /= '&'
in
oneOf
[ chompOneOrMore isLenientUnquotedValueChar

4
tests/ParserTests.elm
View File

@ -202,6 +202,10 @@ basicAttributeTests =
[]
]
)
, ( "quoted-ref", "<a x=\"&male;\"></a>", Ok [ Element "a" [ ( "x", "♂" ) ] [] ] )
, ( "quoted-non-ref", "<a x=\"u&me\"></a>", Ok [ Element "a" [ ( "x", "u&me" ) ] [] ] )
, ( "unquoted-ref", "<a x=&male;></a>", Ok [ Element "a" [ ( "x", "♂" ) ] [] ] )
, ( "unquoted-non-ref", "<a x=u&me></a>", Ok [ Element "a" [ ( "x", "u&me" ) ] [] ] )
]