tibetan-utils-0.1.1.0: src/Text/Megaparsec/Char/Tibetan.hs

module Text.Megaparsec.Char.Tibetan where

import Text.Megaparsec
import Text.Megaparsec.Text

-- | Parse a consonant
--
consonantCharBo :: Parser Char
consonantCharBo = oneOf ("ཨཅཆརཏཡཕཙཚཛའསདབངམགལཞཟཤཀཁཔནཐཇཉཝཧ" :: String)

-- | Parse a digit as a char. 
digitCharBo :: Parser Char
digitCharBo = oneOf ("༠༡༢༣༤༥༦༧༨༩" :: String) <?> "digit char"