- | Parse a name character.
--
-- > [_a-z0-9-]|{nonascii}|{escape}
--
nmchar :: Parser String
nmchar = (do x <- (letter <|> digit <|> oneOf "_-")
             return [x]) <|> (try nonascii) <|> escape <?> "nmchar"

nmchar :: Parser String
nmchar = (do x <- (letter <|> digit <|> oneOf "_-")
             return [x]) <|> (try nonascii) <|> escape <?> "nmchar"
nmchar = (do x <- (letter <|> digit <|> oneOf "_-")
             return [x]) <|> (try nonascii) <|> escape <?> "nmchar"