microsoft-translator-0.1.0.0: src/Microsoft/TranslatorExample.hs

{-# LANGUAGE OverloadedStrings #-}

module Microsoft.TranslatorExample where

import           Microsoft.Translator

import           Control.Monad.Except
import qualified Data.Text.IO as T


main :: IO ()
main = do
    -- set your subscription key in the TRANSLATOR_SUBSCRIPTION_KEY environment var
    Right transData <- runExceptT (lookupSubKey >>= initTransData)
    forever $ do
        T.putStr "> "
        str <- T.getLine
        Right txt <- translateIO transData Nothing ChineseTraditional str
        T.putStrLn txt
        T.putStrLn ""