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 :: Parser Char
consonantCharBo = forall (f :: * -> *) e s (m :: * -> *).
(Foldable f, MonadParsec e s m) =>
f (Token s) -> m (Token s)
oneOf ([Char]
"ཨཅཆརཏཡཕཙཚཛའསདབངམགལཞཟཤཀཁཔནཐཇཉཝཧ" :: String)

-- | Parse a digit as a char.
digitCharBo :: Parser Char
digitCharBo :: Parser Char
digitCharBo = forall (f :: * -> *) e s (m :: * -> *).
(Foldable f, MonadParsec e s m) =>
f (Token s) -> m (Token s)
oneOf ([Char]
"༠༡༢༣༤༥༦༧༨༩" :: String) forall e s (m :: * -> *) a.
MonadParsec e s m =>
m a -> [Char] -> m a
<?> [Char]
"digit char"