module Network.Google.Resource.PlayMoviesPartner.Accounts.ExperienceLocales.Get
(
AccountsExperienceLocalesGetResource
, accountsExperienceLocalesGet
, AccountsExperienceLocalesGet
, aelgXgafv
, aelgUploadProtocol
, aelgPp
, aelgAccessToken
, aelgUploadType
, aelgElId
, aelgAccountId
, aelgBearerToken
, aelgCallback
) where
import Network.Google.PlayMoviesPartner.Types
import Network.Google.Prelude
type AccountsExperienceLocalesGetResource =
"v1" :>
"accounts" :>
Capture "accountId" Text :>
"experienceLocales" :>
Capture "elId" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ExperienceLocale
data AccountsExperienceLocalesGet = AccountsExperienceLocalesGet'
{ _aelgXgafv :: !(Maybe Text)
, _aelgUploadProtocol :: !(Maybe Text)
, _aelgPp :: !Bool
, _aelgAccessToken :: !(Maybe Text)
, _aelgUploadType :: !(Maybe Text)
, _aelgElId :: !Text
, _aelgAccountId :: !Text
, _aelgBearerToken :: !(Maybe Text)
, _aelgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
accountsExperienceLocalesGet
:: Text
-> Text
-> AccountsExperienceLocalesGet
accountsExperienceLocalesGet pAelgElId_ pAelgAccountId_ =
AccountsExperienceLocalesGet'
{ _aelgXgafv = Nothing
, _aelgUploadProtocol = Nothing
, _aelgPp = True
, _aelgAccessToken = Nothing
, _aelgUploadType = Nothing
, _aelgElId = pAelgElId_
, _aelgAccountId = pAelgAccountId_
, _aelgBearerToken = Nothing
, _aelgCallback = Nothing
}
aelgXgafv :: Lens' AccountsExperienceLocalesGet (Maybe Text)
aelgXgafv
= lens _aelgXgafv (\ s a -> s{_aelgXgafv = a})
aelgUploadProtocol :: Lens' AccountsExperienceLocalesGet (Maybe Text)
aelgUploadProtocol
= lens _aelgUploadProtocol
(\ s a -> s{_aelgUploadProtocol = a})
aelgPp :: Lens' AccountsExperienceLocalesGet Bool
aelgPp = lens _aelgPp (\ s a -> s{_aelgPp = a})
aelgAccessToken :: Lens' AccountsExperienceLocalesGet (Maybe Text)
aelgAccessToken
= lens _aelgAccessToken
(\ s a -> s{_aelgAccessToken = a})
aelgUploadType :: Lens' AccountsExperienceLocalesGet (Maybe Text)
aelgUploadType
= lens _aelgUploadType
(\ s a -> s{_aelgUploadType = a})
aelgElId :: Lens' AccountsExperienceLocalesGet Text
aelgElId = lens _aelgElId (\ s a -> s{_aelgElId = a})
aelgAccountId :: Lens' AccountsExperienceLocalesGet Text
aelgAccountId
= lens _aelgAccountId
(\ s a -> s{_aelgAccountId = a})
aelgBearerToken :: Lens' AccountsExperienceLocalesGet (Maybe Text)
aelgBearerToken
= lens _aelgBearerToken
(\ s a -> s{_aelgBearerToken = a})
aelgCallback :: Lens' AccountsExperienceLocalesGet (Maybe Text)
aelgCallback
= lens _aelgCallback (\ s a -> s{_aelgCallback = a})
instance GoogleRequest AccountsExperienceLocalesGet
where
type Rs AccountsExperienceLocalesGet =
ExperienceLocale
type Scopes AccountsExperienceLocalesGet =
'["https://www.googleapis.com/auth/playmovies_partner.readonly"]
requestClient AccountsExperienceLocalesGet'{..}
= go _aelgAccountId _aelgElId _aelgXgafv
_aelgUploadProtocol
(Just _aelgPp)
_aelgAccessToken
_aelgUploadType
_aelgBearerToken
_aelgCallback
(Just AltJSON)
playMoviesPartnerService
where go
= buildClient
(Proxy :: Proxy AccountsExperienceLocalesGetResource)
mempty