{-# LANGUAGE PartialTypeSignatures #-}

module Language.Eberban.Parsing
( parseText
) where

import qualified Data.Text as T
import qualified Language.Eberban.Parser.Mercury as MercuryParser

-- | Parses Eberban text using "Language.Eberban.Parser.Mercury".
parseText :: T.Text -> Either String _
parseText :: Text -> Either String EberbanText
parseText = Parser EberbanText
MercuryParser.parseText Parser EberbanText
-> (Text -> String) -> Text -> Either String EberbanText
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> String
T.unpack

parseSentence :: T.Text -> Either String _
parseSentence :: Text -> Either String Sentence
parseSentence = Parser Sentence
MercuryParser.parseSentence Parser Sentence
-> (Text -> String) -> Text -> Either String Sentence
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> String
T.unpack