module Language.Lojban.Parsing
( parseText
) where

import qualified Data.Text as T
import qualified Language.Lojban.Parser.ZasniGerna as ZG

-- | Parses Lojban text using "Language.Lojban.Parser.ZasniGerna".
parseText :: T.Text -> Either String (ZG.Free, ZG.Text, ZG.Terminator)
parseText :: Text -> Either String (Free, Text, Terminator)
parseText = String -> Either String (Free, Text, Terminator)
ZG.parse (String -> Either String (Free, Text, Terminator))
-> (Text -> String)
-> Text
-> Either String (Free, Text, Terminator)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> String
T.unpack