tagsoup 0.14.3 → 0.14.4
raw patch · 4 files changed
+6/−3 lines, 4 files
Files
- CHANGES.txt +2/−0
- src/Text/HTML/TagSoup/Specification.hs +2/−2
- tagsoup.cabal +1/−1
- test/TagSoup/Test.hs +1/−0
CHANGES.txt view
@@ -1,5 +1,7 @@ Changelog for TagSoup +0.14.4, released 2018-02-26+ #71, fix up source positions on bogus comments 0.14.3, released 2018-01-21 #70, fix up source positions on comments 0.14.2, released 2017-11-30
src/Text/HTML/TagSoup/Specification.hs view
@@ -63,9 +63,9 @@ -- seen "<?", emitted []-neilXmlTagOpen S{..} = pos $ case hd of+neilXmlTagOpen S{..} = case hd of _ | isAlpha hd -> Tag & '?' & hd & tagName TypeXml tl- _ -> errSeen "<?" & '<' & '?' & dat s+ _ -> pos $ 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.3+version: 0.14.4 copyright: Neil Mitchell 2006-2018 author: Neil Mitchell <ndmitchell@gmail.com> maintainer: Neil Mitchell <ndmitchell@gmail.com>
test/TagSoup/Test.hs view
@@ -249,6 +249,7 @@ p "<a>&1" === [TagPosition 1 1,TagOpen "a" [],TagPosition 1 4,TagText "&1"] 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 "<![CDATA[x]]>" === [TagPosition 1 10,TagText "x"] p "<!html>" === [TagPosition 1 1,TagOpen "!html" []]