Microsoft.Translator

Basic Types

newtype SubscriptionKey

A key to your subscription to the service. Used to retrieve an AuthToken.

Constructors

SubKey Text

Instances

Show SubscriptionKey

Methods

showsPrec :: Int -> SubscriptionKey -> ShowS

show :: SubscriptionKey -> String

showList :: [SubscriptionKey] -> ShowS

IsString SubscriptionKey

Methods

fromString :: String -> SubscriptionKey

ToHttpApiData SubscriptionKey

Methods

toUrlPiece :: SubscriptionKey -> Text

toEncodedUrlPiece :: SubscriptionKey -> Builder

toHeader :: SubscriptionKey -> ByteString

toQueryParam :: SubscriptionKey -> Text

data AuthToken

The JSON Web Token issued by MS Microsoft.Translator token service. Consists of wrapped text. Valid for ten minutes.

Instances

Show AuthToken

Methods

showsPrec :: Int -> AuthToken -> ShowS

show :: AuthToken -> String

showList :: [AuthToken] -> ShowS

Generic AuthToken

Associated Types

type Rep AuthToken :: * -> *

Methods

from :: AuthToken -> Rep AuthToken x

to :: Rep AuthToken x -> AuthToken

ToHttpApiData AuthToken

Methods

toUrlPiece :: AuthToken -> Text

toEncodedUrlPiece :: AuthToken -> Builder

toHeader :: AuthToken -> ByteString

toQueryParam :: AuthToken -> Text

type Rep AuthToken

type Rep AuthToken = D1 * (MetaData "AuthToken" "Microsoft.Translator.API.Auth" "microsoft-translator-0.1.1-SJQ3sfTzucJoM4Lfl3DNf" True) (C1 * (MetaCons "AuthToken" PrefixI False) (S1 * (MetaSel (Nothing Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Text)))

data AuthData

An AuthToken together with the time it was recieved. Each token is valid for 10 minutes.

Constructors

AuthData

Fields

• timeStamp :: UTCTime
• authToken :: AuthToken

Instances

Show AuthData

Methods

showsPrec :: Int -> AuthData -> ShowS

show :: AuthData -> String

showList :: [AuthData] -> ShowS

data TransData

The data to hold onto for making translation requests. Includes your SubscriptionKey, an AuthData and an HTTPS Manager.

data Language

Languages supported by MS Microsoft.Translator

Constructors

Afrikaans

Arabic

Bosnian

Bulgarian

Catalan

ChineseSimplified

ChineseTraditional

Croatian

Czech

Danish

Dutch

English

Estonian

Finnish

French

German

Greek

HaitianCreole

Hebrew

Hindi

HmongDaw

Hungarian

Indonesian

Italian

Japanese

Kiswahili

Klingon

KlingonPIqaD

Korean

Latvian

Lithuanian

Malay

Maltese

Norwegian

Persian

Polish

Portuguese

QueretaroOtomi

Romanian

Russian

SerbianCyrillic

SerbianLatin

Slovak

Slovenian

Spanish

Swedish

Thai

Turkish

Ukrainian

Urdu

Vietnamese

Welsh

YucatecMaya

Instances

ToHttpApiData Language

Methods

toUrlPiece :: Language -> Text

toEncodedUrlPiece :: Language -> Builder

toHeader :: Language -> ByteString

toQueryParam :: Language -> Text

data TranslatorException

Instances

Show TranslatorException

Methods

showsPrec :: Int -> TranslatorException -> ShowS

show :: TranslatorException -> String

showList :: [TranslatorException] -> ShowS

Exception TranslatorException

Methods

toException :: TranslatorException -> SomeException

fromException :: SomeException -> Maybe TranslatorException

displayException :: TranslatorException -> String

newtype ArrayResponse

Constructors

ArrayResponse

Fields

• getArrayResponse :: [TransItem]

Instances

Show ArrayResponse

Methods

showsPrec :: Int -> ArrayResponse -> ShowS

show :: ArrayResponse -> String

showList :: [ArrayResponse] -> ShowS

Generic ArrayResponse

Associated Types

type Rep ArrayResponse :: * -> *

Methods

from :: ArrayResponse -> Rep ArrayResponse x

to :: Rep ArrayResponse x -> ArrayResponse

type Rep ArrayResponse

type Rep ArrayResponse = D1 * (MetaData "ArrayResponse" "Microsoft.Translator.API" "microsoft-translator-0.1.1-SJQ3sfTzucJoM4Lfl3DNf" True) (C1 * (MetaCons "ArrayResponse" PrefixI True) (S1 * (MetaSel (Just Symbol "getArrayResponse") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * [TransItem])))

data TransItem

Constructors

TransItem

Fields

• transText :: Text
• originalBreaks :: [Int]
• translatedBreaks :: [Int]

Instances

Show TransItem

Methods

showsPrec :: Int -> TransItem -> ShowS

show :: TransItem -> String

showList :: [TransItem] -> ShowS

Generic TransItem

Associated Types

type Rep TransItem :: * -> *

Methods

from :: TransItem -> Rep TransItem x

to :: Rep TransItem x -> TransItem

type Rep TransItem

type Rep TransItem = D1 * (MetaData "TransItem" "Microsoft.Translator.API" "microsoft-translator-0.1.1-SJQ3sfTzucJoM4Lfl3DNf" False) (C1 * (MetaCons "TransItem" PrefixI True) ((:*:) * (S1 * (MetaSel (Just Symbol "transText") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Text)) ((:*:) * (S1 * (MetaSel (Just Symbol "originalBreaks") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * [Int])) (S1 * (MetaSel (Just Symbol "translatedBreaks") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * [Int])))))

data Sentence

An original/translated sentence pair.

Constructors

Sentence

Fields

• fromText :: Text
• toText :: Text

Instances

Eq Sentence

Methods

(==) :: Sentence -> Sentence -> Bool

(/=) :: Sentence -> Sentence -> Bool

Show Sentence

Methods

showsPrec :: Int -> Sentence -> ShowS

show :: Sentence -> String

showList :: [Sentence] -> ShowS

Generic Sentence

Associated Types

type Rep Sentence :: * -> *

Methods

from :: Sentence -> Rep Sentence x

to :: Rep Sentence x -> Sentence

type Rep Sentence

type Rep Sentence = D1 * (MetaData "Sentence" "Microsoft.Translator" "microsoft-translator-0.1.1-SJQ3sfTzucJoM4Lfl3DNf" False) (C1 * (MetaCons "Sentence" PrefixI True) ((:*:) * (S1 * (MetaSel (Just Symbol "fromText") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Text)) (S1 * (MetaSel (Just Symbol "toText") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Text))))

API functions

Authorization

lookupSubKey :: ExceptT TranslatorException IO SubscriptionKey

Retrieve your subscription key from the TRANSLATOR_SUBSCRIPTION_KEY environment variable.

issueToken :: Manager -> SubscriptionKey -> IO (Either TranslatorException AuthToken)

Retrieve a token from the API. It will be valid for 10 minutes.

issueAuth :: Manager -> SubscriptionKey -> ExceptT TranslatorException IO AuthData

Retrieve a token, via issueToken, and save it together with a timestamp.

refresh :: TransData -> ExceptT TranslatorException IO AuthData

initTransData :: SubscriptionKey -> ExceptT TranslatorException IO TransData

Retrieve an AuthData token and hold on to the new HTTPS manager.

initTransDataWith :: SubscriptionKey -> Manager -> ExceptT TranslatorException IO TransData

Retrieve an AuthData token and hold on to the HTTPS manager. For when you want to supply a particular manager. Otherwise use initTransData.

checkAuth :: TransData -> ExceptT TranslatorException IO AuthData

If a token contained in a TransData is expired or about to expire, refresh it.

keepFreshAuth :: SubscriptionKey -> ExceptT TranslatorException IO TransData

Create a TransData with a new auth token and fork a thread to refresh it every 9 minutes. This is mostly a quick-and-dirty function for demo purposes and one-off projects. You'll want to roll something more robust for production applications.

Translation

ExceptT variants

translate :: TransData -> Maybe Language -> Language -> Text -> ExceptT TranslatorException IO Text

Translate text

translateArray :: TransData -> Language -> Language -> [Text] -> ExceptT TranslatorException IO ArrayResponse

Translate a text array. The ArrayResponse you get back includes sentence break information.

translateArrayText :: TransData -> Language -> Language -> [Text] -> ExceptT TranslatorException IO [Text]

Translate a text array, and just return the list of texts.

translateArraySentences :: TransData -> Language -> Language -> [Text] -> ExceptT TranslatorException IO [[Sentence]]

Translate a text array, and split all the texts into constituent sentences, paired with the originals.

IO variants

lookupSubKeyIO :: IO (Either TranslatorException SubscriptionKey)

Retrieve your subscription key from the TRANSLATOR_SUBSCRIPTION_KEY environment variable.

issueAuthIO :: Manager -> SubscriptionKey -> IO (Either TranslatorException AuthData)

Retrieve a token, via issueToken, and save it together with a timestamp.

initTransDataIO :: SubscriptionKey -> IO (Either TranslatorException TransData)

Retrieve an AuthData token and start up an HTTPS manager.

checkAuthIO :: TransData -> IO (Either TranslatorException AuthData)

If a token contained in a TransData is expired or about to expire, refresh it.

translateIO :: TransData -> Maybe Language -> Language -> Text -> IO (Either TranslatorException Text)

Translate text.

translateArrayIO :: TransData -> Language -> Language -> [Text] -> IO (Either TranslatorException ArrayResponse)

Translate a text array.

translateArrayTextIO :: TransData -> Language -> Language -> [Text] -> IO (Either TranslatorException [Text])

Translate a text array, and just return the list of texts.

translateArraySentencesIO :: TransData -> Language -> Language -> [Text] -> IO (Either TranslatorException [[Sentence]])

Translate a text array, and split all the texts into constituent sentences paired with the originals.

Minimalistic variants

simpleTranslate :: SubscriptionKey -> Manager -> Maybe Language -> Language -> Text -> IO (Either TranslatorException Text)

Simplest possible translation function. Always needs to make a request for the JWT token first.

basicTranslate :: Manager -> AuthToken -> Maybe Language -> Language -> Text -> IO (Either TranslatorException Text)

Most basic possible text translation function. For typical use-cases it will be much more convenient to use functions from the Microsoft.Translator module, namely translateIO. See the README example.

basicTranslateArray :: Manager -> AuthToken -> Language -> Language -> [Text] -> IO (Either TranslatorException ArrayResponse)

Most basic possible text list translation function. For typical use-cases it will be much more convenient to use functions from the Microsoft.Translator module, namely translateArrayIO. See the README example.

Pure functions

mkSentences :: [Text] -> ArrayResponse -> [[Sentence]]

Take the original texts and the ArrayResponse object, and apply the sentence break information to pair each sentence in the request to the translated text.