module Data.Text.ICU.Translit (IO.Transliterator, trans, transliterate) where
import Data.Text
import Data.Text.ICU.Translit.IO qualified as IO
import System.IO.Unsafe
trans :: Text -> IO.Transliterator
trans :: Text -> Transliterator
trans Text
t = IO Transliterator -> Transliterator
forall a. IO a -> a
unsafePerformIO (IO Transliterator -> Transliterator)
-> IO Transliterator -> Transliterator
forall a b. (a -> b) -> a -> b
$ Text -> IO Transliterator
IO.transliterator Text
t
transliterate :: IO.Transliterator -> Text -> Text
transliterate :: Transliterator -> Text -> Text
transliterate Transliterator
tr Text
txt = IO Text -> Text
forall a. IO a -> a
unsafePerformIO (IO Text -> Text) -> IO Text -> Text
forall a b. (a -> b) -> a -> b
$ Transliterator -> Text -> IO Text
IO.transliterate Transliterator
tr Text
txt