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

module Text.Megaparsec.Char.Tibetan where

import           Data.Void
import           Text.Megaparsec
import           Text.Megaparsec.Char

type Parser = Parsec Void String

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

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