module Text.HTML.TagSoup.HT.Parser.Status where

import qualified Text.XML.Basic.Position as Position

data T stream =
   Cons {
      sourcePos :: Position.T,
      source    :: stream
   }
   deriving Show