module Text.HTML.TagSoup.HT.PositionTag where
import qualified Text.HTML.TagSoup.HT.Tag as Tag
import qualified Text.HTML.TagSoup.HT.Position as Position
import Text.HTML.TagSoup.HT.Utility (mapSnd, )
type T char = (Position.T, Tag.T char)
lift :: (Tag.T char0 -> Tag.T char1) -> (T char0 -> T char1)
lift = mapSnd
canonicalizeSoup :: [T char] -> [T char]
canonicalizeSoup =
map canonicalize
{- |
See 'Tag.canonicalize'.
-}
canonicalize :: T char -> T char
canonicalize = lift Tag.canonicalize
textFromCData :: T Char -> T Char
textFromCData = lift Tag.textFromCData