module Text.XML.HXT.Parser.XmlCharParser
( xmlChar
, xmlNameChar
, xmlNameStartChar
, xmlNCNameChar
, xmlNCNameStartChar
, xmlLetter
, xmlSpaceChar
)
where
import Text.XML.HXT.DOM.Unicode
import Text.ParserCombinators.Parsec
xmlChar :: GenParser Char state Unicode
xmlChar = satisfy isXmlChar <?> "legal XML character"
xmlNameChar :: GenParser Char state Unicode
xmlNameChar = satisfy isXmlNameChar <?> "legal XML name character"
xmlNameStartChar :: GenParser Char state Unicode
xmlNameStartChar = satisfy isXmlNameStartChar <?> "legal XML name start character"
xmlNCNameChar :: GenParser Char state Unicode
xmlNCNameChar = satisfy isXmlNCNameChar <?> "legal XML NCName character"
xmlNCNameStartChar :: GenParser Char state Unicode
xmlNCNameStartChar = satisfy isXmlNCNameStartChar <?> "legal XML NCName start character"
xmlLetter :: GenParser Char state Unicode
xmlLetter = satisfy isXmlLetter <?> "legal XML letter"
xmlSpaceChar :: GenParser Char state Char
xmlSpaceChar = satisfy isXmlSpaceChar <?> "white space"