{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.GamesConfiguration.AchievementConfigurations.List
(
AchievementConfigurationsListResource
, achievementConfigurationsList
, AchievementConfigurationsList
, aclApplicationId
, aclPageToken
, aclMaxResults
) where
import Network.Google.GamesConfiguration.Types
import Network.Google.Prelude
type AchievementConfigurationsListResource =
"games" :>
"v1configuration" :>
"applications" :>
Capture "applicationId" Text :>
"achievements" :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] AchievementConfigurationListResponse
data AchievementConfigurationsList = AchievementConfigurationsList'
{ _aclApplicationId :: !Text
, _aclPageToken :: !(Maybe Text)
, _aclMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
achievementConfigurationsList
:: Text
-> AchievementConfigurationsList
achievementConfigurationsList pAclApplicationId_ =
AchievementConfigurationsList'
{ _aclApplicationId = pAclApplicationId_
, _aclPageToken = Nothing
, _aclMaxResults = Nothing
}
aclApplicationId :: Lens' AchievementConfigurationsList Text
aclApplicationId
= lens _aclApplicationId
(\ s a -> s{_aclApplicationId = a})
aclPageToken :: Lens' AchievementConfigurationsList (Maybe Text)
aclPageToken
= lens _aclPageToken (\ s a -> s{_aclPageToken = a})
aclMaxResults :: Lens' AchievementConfigurationsList (Maybe Int32)
aclMaxResults
= lens _aclMaxResults
(\ s a -> s{_aclMaxResults = a})
. mapping _Coerce
instance GoogleRequest AchievementConfigurationsList
where
type Rs AchievementConfigurationsList =
AchievementConfigurationListResponse
type Scopes AchievementConfigurationsList =
'["https://www.googleapis.com/auth/androidpublisher"]
requestClient AchievementConfigurationsList'{..}
= go _aclApplicationId _aclPageToken _aclMaxResults
(Just AltJSON)
gamesConfigurationService
where go
= buildClient
(Proxy ::
Proxy AchievementConfigurationsListResource)
mempty