google-translate: Google Translate API bindings
| Versions [faq] | 0.1.0.0, 0.1.0.1, 0.1.1.1, 0.1.1.2, 0.2, 0.3, 0.4, 0.4.1, 0.5 |
|---|---|
| Dependencies | aeson, base (>=4.7 && <5), bytestring (==0.10.*), http-api-data (>=0.2 && <0.4), http-client (>=0.4 && <0.6), servant (>=0.13), servant-client (>=0.13), text (==1.2.*), transformers (>=0.4 && <0.6) [details] |
| License | BSD-3-Clause |
| Copyright | David Johnson (c) 2018 |
| Author | David Johnson, Dmitry Dzhus |
| Maintainer | djohnson.m@gmail.com |
| Category | Web |
| Source repo | head: git clone https://github.com/dmjio/google-translate |
| Uploaded | by DavidJohnson at Mon May 7 11:42:52 UTC 2018 |
| Distributions | NixOS:0.5 |
| Downloads | 2692 total (79 in the last 30 days) |
| Rating | 2.25 (votes: 2) [estimated by rule of succession] |
| Your Rating | |
| Status | Docs available [build log] Last success reported on 2018-05-07 [all 1 reports] |
Downloads
- google-translate-0.5.tar.gz [browse] (Cabal source package)
- Package description (as included in the package)
Readme for google-translate-0.5
[back to package description]google-translate
High-level, up-to-date bindings to the Google Translate API.
{-# LANGUAGE OverloadedStrings #-}
import Control.Monad
import qualified Data.Text.IO as T
import Network.HTTP.Client
import Network.HTTP.Client.TLS
import Web.Google.Translate
main :: IO ()
main = do
Right TranslationResponse { translations = xs } <-
newManager tlsManagerSettings >>= \mgr ->
translate mgr (Key "<API-Key>") (Just srcLang) trgLang (Body "Hello")
forM_ xs $ \Translation { translatedText = TranslatedText txt } ->
T.putStrLn txt
where
srcLang = Source English
trgLang = Target Russian
-- >>> Здравствуйте