{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Translate.Types.Product where
import Network.Google.Prelude
import Network.Google.Translate.Types.Sum
newtype DetectLanguageRequest = DetectLanguageRequest'
{ _dlrQ :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
detectLanguageRequest
:: DetectLanguageRequest
detectLanguageRequest =
DetectLanguageRequest'
{ _dlrQ = Nothing
}
dlrQ :: Lens' DetectLanguageRequest [Text]
dlrQ
= lens _dlrQ (\ s a -> s{_dlrQ = a}) . _Default .
_Coerce
instance FromJSON DetectLanguageRequest where
parseJSON
= withObject "DetectLanguageRequest"
(\ o ->
DetectLanguageRequest' <$> (o .:? "q" .!= mempty))
instance ToJSON DetectLanguageRequest where
toJSON DetectLanguageRequest'{..}
= object (catMaybes [("q" .=) <$> _dlrQ])
data TranslationsResource = TranslationsResource'
{ _trDetectedSourceLanguage :: !(Maybe Text)
, _trModel :: !(Maybe Text)
, _trTranslatedText :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
translationsResource
:: TranslationsResource
translationsResource =
TranslationsResource'
{ _trDetectedSourceLanguage = Nothing
, _trModel = Nothing
, _trTranslatedText = Nothing
}
trDetectedSourceLanguage :: Lens' TranslationsResource (Maybe Text)
trDetectedSourceLanguage
= lens _trDetectedSourceLanguage
(\ s a -> s{_trDetectedSourceLanguage = a})
trModel :: Lens' TranslationsResource (Maybe Text)
trModel = lens _trModel (\ s a -> s{_trModel = a})
trTranslatedText :: Lens' TranslationsResource (Maybe Text)
trTranslatedText
= lens _trTranslatedText
(\ s a -> s{_trTranslatedText = a})
instance FromJSON TranslationsResource where
parseJSON
= withObject "TranslationsResource"
(\ o ->
TranslationsResource' <$>
(o .:? "detectedSourceLanguage") <*> (o .:? "model")
<*> (o .:? "translatedText"))
instance ToJSON TranslationsResource where
toJSON TranslationsResource'{..}
= object
(catMaybes
[("detectedSourceLanguage" .=) <$>
_trDetectedSourceLanguage,
("model" .=) <$> _trModel,
("translatedText" .=) <$> _trTranslatedText])
data TranslateTextRequest = TranslateTextRequest'
{ _ttrFormat :: !(Maybe Text)
, _ttrQ :: !(Maybe [Text])
, _ttrModel :: !(Maybe Text)
, _ttrSource :: !(Maybe Text)
, _ttrTarget :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
translateTextRequest
:: TranslateTextRequest
translateTextRequest =
TranslateTextRequest'
{ _ttrFormat = Nothing
, _ttrQ = Nothing
, _ttrModel = Nothing
, _ttrSource = Nothing
, _ttrTarget = Nothing
}
ttrFormat :: Lens' TranslateTextRequest (Maybe Text)
ttrFormat
= lens _ttrFormat (\ s a -> s{_ttrFormat = a})
ttrQ :: Lens' TranslateTextRequest [Text]
ttrQ
= lens _ttrQ (\ s a -> s{_ttrQ = a}) . _Default .
_Coerce
ttrModel :: Lens' TranslateTextRequest (Maybe Text)
ttrModel = lens _ttrModel (\ s a -> s{_ttrModel = a})
ttrSource :: Lens' TranslateTextRequest (Maybe Text)
ttrSource
= lens _ttrSource (\ s a -> s{_ttrSource = a})
ttrTarget :: Lens' TranslateTextRequest (Maybe Text)
ttrTarget
= lens _ttrTarget (\ s a -> s{_ttrTarget = a})
instance FromJSON TranslateTextRequest where
parseJSON
= withObject "TranslateTextRequest"
(\ o ->
TranslateTextRequest' <$>
(o .:? "format") <*> (o .:? "q" .!= mempty) <*>
(o .:? "model")
<*> (o .:? "source")
<*> (o .:? "target"))
instance ToJSON TranslateTextRequest where
toJSON TranslateTextRequest'{..}
= object
(catMaybes
[("format" .=) <$> _ttrFormat, ("q" .=) <$> _ttrQ,
("model" .=) <$> _ttrModel,
("source" .=) <$> _ttrSource,
("target" .=) <$> _ttrTarget])
newtype DetectionsListResponse = DetectionsListResponse'
{ _dlrDetections :: Maybe [[DetectionsResourceItem]]
} deriving (Eq,Show,Data,Typeable,Generic)
detectionsListResponse
:: DetectionsListResponse
detectionsListResponse =
DetectionsListResponse'
{ _dlrDetections = Nothing
}
dlrDetections :: Lens' DetectionsListResponse [[DetectionsResourceItem]]
dlrDetections
= lens _dlrDetections
(\ s a -> s{_dlrDetections = a})
. _Default
. _Coerce
instance FromJSON DetectionsListResponse where
parseJSON
= withObject "DetectionsListResponse"
(\ o ->
DetectionsListResponse' <$>
(o .:? "detections" .!= mempty))
instance ToJSON DetectionsListResponse where
toJSON DetectionsListResponse'{..}
= object
(catMaybes [("detections" .=) <$> _dlrDetections])
newtype GetSupportedLanguagesRequest = GetSupportedLanguagesRequest'
{ _gslrTarget :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
getSupportedLanguagesRequest
:: GetSupportedLanguagesRequest
getSupportedLanguagesRequest =
GetSupportedLanguagesRequest'
{ _gslrTarget = Nothing
}
gslrTarget :: Lens' GetSupportedLanguagesRequest (Maybe Text)
gslrTarget
= lens _gslrTarget (\ s a -> s{_gslrTarget = a})
instance FromJSON GetSupportedLanguagesRequest where
parseJSON
= withObject "GetSupportedLanguagesRequest"
(\ o ->
GetSupportedLanguagesRequest' <$> (o .:? "target"))
instance ToJSON GetSupportedLanguagesRequest where
toJSON GetSupportedLanguagesRequest'{..}
= object (catMaybes [("target" .=) <$> _gslrTarget])
newtype LanguagesListResponse = LanguagesListResponse'
{ _llrLanguages :: Maybe [LanguagesResource]
} deriving (Eq,Show,Data,Typeable,Generic)
languagesListResponse
:: LanguagesListResponse
languagesListResponse =
LanguagesListResponse'
{ _llrLanguages = Nothing
}
llrLanguages :: Lens' LanguagesListResponse [LanguagesResource]
llrLanguages
= lens _llrLanguages (\ s a -> s{_llrLanguages = a})
. _Default
. _Coerce
instance FromJSON LanguagesListResponse where
parseJSON
= withObject "LanguagesListResponse"
(\ o ->
LanguagesListResponse' <$>
(o .:? "languages" .!= mempty))
instance ToJSON LanguagesListResponse where
toJSON LanguagesListResponse'{..}
= object
(catMaybes [("languages" .=) <$> _llrLanguages])
data DetectionsResourceItem = DetectionsResourceItem'
{ _driConfidence :: !(Maybe (Textual Double))
, _driIsReliable :: !(Maybe Bool)
, _driLanguage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
detectionsResourceItem
:: DetectionsResourceItem
detectionsResourceItem =
DetectionsResourceItem'
{ _driConfidence = Nothing
, _driIsReliable = Nothing
, _driLanguage = Nothing
}
driConfidence :: Lens' DetectionsResourceItem (Maybe Double)
driConfidence
= lens _driConfidence
(\ s a -> s{_driConfidence = a})
. mapping _Coerce
driIsReliable :: Lens' DetectionsResourceItem (Maybe Bool)
driIsReliable
= lens _driIsReliable
(\ s a -> s{_driIsReliable = a})
driLanguage :: Lens' DetectionsResourceItem (Maybe Text)
driLanguage
= lens _driLanguage (\ s a -> s{_driLanguage = a})
instance FromJSON DetectionsResourceItem where
parseJSON
= withObject "DetectionsResourceItem"
(\ o ->
DetectionsResourceItem' <$>
(o .:? "confidence") <*> (o .:? "isReliable") <*>
(o .:? "language"))
instance ToJSON DetectionsResourceItem where
toJSON DetectionsResourceItem'{..}
= object
(catMaybes
[("confidence" .=) <$> _driConfidence,
("isReliable" .=) <$> _driIsReliable,
("language" .=) <$> _driLanguage])
data LanguagesResource = LanguagesResource'
{ _lrName :: !(Maybe Text)
, _lrLanguage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
languagesResource
:: LanguagesResource
languagesResource =
LanguagesResource'
{ _lrName = Nothing
, _lrLanguage = Nothing
}
lrName :: Lens' LanguagesResource (Maybe Text)
lrName = lens _lrName (\ s a -> s{_lrName = a})
lrLanguage :: Lens' LanguagesResource (Maybe Text)
lrLanguage
= lens _lrLanguage (\ s a -> s{_lrLanguage = a})
instance FromJSON LanguagesResource where
parseJSON
= withObject "LanguagesResource"
(\ o ->
LanguagesResource' <$>
(o .:? "name") <*> (o .:? "language"))
instance ToJSON LanguagesResource where
toJSON LanguagesResource'{..}
= object
(catMaybes
[("name" .=) <$> _lrName,
("language" .=) <$> _lrLanguage])
newtype TranslationsListResponse = TranslationsListResponse'
{ _tlrTranslations :: Maybe [TranslationsResource]
} deriving (Eq,Show,Data,Typeable,Generic)
translationsListResponse
:: TranslationsListResponse
translationsListResponse =
TranslationsListResponse'
{ _tlrTranslations = Nothing
}
tlrTranslations :: Lens' TranslationsListResponse [TranslationsResource]
tlrTranslations
= lens _tlrTranslations
(\ s a -> s{_tlrTranslations = a})
. _Default
. _Coerce
instance FromJSON TranslationsListResponse where
parseJSON
= withObject "TranslationsListResponse"
(\ o ->
TranslationsListResponse' <$>
(o .:? "translations" .!= mempty))
instance ToJSON TranslationsListResponse where
toJSON TranslationsListResponse'{..}
= object
(catMaybes
[("translations" .=) <$> _tlrTranslations])