tagsoup 0.14.4 → 0.14.5
raw patch · 4 files changed
+5/−2 lines, 4 files
Files
- CHANGES.txt +2/−0
- src/Text/HTML/TagSoup/Specification.hs +1/−1
- tagsoup.cabal +1/−1
- test/TagSoup/Test.hs +1/−0
CHANGES.txt view
@@ -1,5 +1,7 @@ Changelog for TagSoup +0.14.5, released 2018-02-27+ Fix up source positions on bogus <? markers 0.14.4, released 2018-02-26 #71, fix up source positions on bogus comments 0.14.3, released 2018-01-21
src/Text/HTML/TagSoup/Specification.hs view
@@ -65,7 +65,7 @@ -- seen "<?", emitted [] neilXmlTagOpen S{..} = case hd of _ | isAlpha hd -> Tag & '?' & hd & tagName TypeXml tl- _ -> pos $ errSeen "<?" & '<' & '?' & dat s+ _ -> errSeen "<?" & '<' & '?' & dat s -- seen "?", expecting ">" neilXmlTagClose S{..} = pos $ case hd of
tagsoup.cabal view
@@ -1,6 +1,6 @@ cabal-version: >= 1.18 name: tagsoup-version: 0.14.4+version: 0.14.5 copyright: Neil Mitchell 2006-2018 author: Neil Mitchell <ndmitchell@gmail.com> maintainer: Neil Mitchell <ndmitchell@gmail.com>
test/TagSoup/Test.hs view
@@ -250,6 +250,7 @@ p "<a>&" === [TagPosition 1 1,TagOpen "a" [],TagPosition 1 4,TagText "&"] p "<div><!--foo-->bar</div>" === [TagPosition 1 1,TagOpen "div" [],TagPosition 1 6,TagComment "foo",TagPosition 1 16,TagText "bar",TagPosition 1 19,TagClose "div"] p "<div><?foo</div>" === [TagPosition 1 1,TagOpen "div" [],TagPosition 1 6,TagOpen "?foo<" [("div","")]]+ p "<div><?</div>" === [TagPosition 1 1,TagOpen "div" [],TagPosition 1 6,TagText "<?",TagPosition 1 8,TagClose "div"] p "<![CDATA[x]]>" === [TagPosition 1 10,TagText "x"] p "<!html>" === [TagPosition 1 1,TagOpen "!html" []]