tagsoup 0.12.7 → 0.12.8

raw patch · 3 files changed

+4/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Main.hs +1/−1
• Text/HTML/TagSoup/Implementation.hs +2/−1
• tagsoup.cabal +1/−1

@@ -10,7 +10,7 @@  helpMsg :: IO () helpMsg = putStr $ unlines $-    ["TagSoup, (C) Neil Mitchell 2006-2009"+    ["TagSoup, (C) Neil Mitchell 2006-2012"     ,""     ,"  tagsoup arguments"     ,""

@@ -81,7 +81,7 @@     where         -- main choice loop         go :: ((Position,[Tag str]),[Out]) -> [Tag str]-        go ((p,ws),xs) | p `seq` False = [] -- otherwise p is a space leak when optTagPosition == False+        go ((p,ws),xs) | p `seq` False = undefined -- otherwise p is a space leak when optTagPosition == False         go ((p,ws),xs) | not $ null ws = (if optTagWarning then (reverse ws++) else id) $ go ((p,[]),xs)         go ((p,ws),Pos p2:xs) = go ((p2,ws),xs) @@ -119,6 +119,7 @@          -- loop round collecting characters, if the b is set including entity         charss :: Bool -> ((Position,[Tag str]),[Out]) -> ( ((Position,[Tag str]),[Out]) , String)+        charss _ ((p,_),_) | p `seq` False = undefined         charss t x | Just a <- fromChr x = (y, a:b)             where (y,b) = charss t (next x)         charss t x | t, isEntityName x = second (toString n ++) $ charss t $ addWarns m z

@@ -1,6 +1,6 @@ cabal-version:  >= 1.6 name:           tagsoup-version:        0.12.7+version:        0.12.8 copyright:      Neil Mitchell 2006-2012 author:         Neil Mitchell <ndmitchell@gmail.com> maintainer:     Neil Mitchell <ndmitchell@gmail.com>