module Network.Google.Resource.Games.AchievementDefinitions.List
(
AchievementDefinitionsListResource
, achievementDefinitionsList
, AchievementDefinitionsList
, adlConsistencyToken
, adlLanguage
, adlPageToken
, adlMaxResults
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type AchievementDefinitionsListResource =
"games" :>
"v1" :>
"achievements" :>
QueryParam "consistencyToken" (Textual Int64) :>
QueryParam "language" Text :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] AchievementDefinitionsListResponse
data AchievementDefinitionsList = AchievementDefinitionsList'
{ _adlConsistencyToken :: !(Maybe (Textual Int64))
, _adlLanguage :: !(Maybe Text)
, _adlPageToken :: !(Maybe Text)
, _adlMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
achievementDefinitionsList
:: AchievementDefinitionsList
achievementDefinitionsList =
AchievementDefinitionsList'
{ _adlConsistencyToken = Nothing
, _adlLanguage = Nothing
, _adlPageToken = Nothing
, _adlMaxResults = Nothing
}
adlConsistencyToken :: Lens' AchievementDefinitionsList (Maybe Int64)
adlConsistencyToken
= lens _adlConsistencyToken
(\ s a -> s{_adlConsistencyToken = a})
. mapping _Coerce
adlLanguage :: Lens' AchievementDefinitionsList (Maybe Text)
adlLanguage
= lens _adlLanguage (\ s a -> s{_adlLanguage = a})
adlPageToken :: Lens' AchievementDefinitionsList (Maybe Text)
adlPageToken
= lens _adlPageToken (\ s a -> s{_adlPageToken = a})
adlMaxResults :: Lens' AchievementDefinitionsList (Maybe Int32)
adlMaxResults
= lens _adlMaxResults
(\ s a -> s{_adlMaxResults = a})
. mapping _Coerce
instance GoogleRequest AchievementDefinitionsList
where
type Rs AchievementDefinitionsList =
AchievementDefinitionsListResponse
type Scopes AchievementDefinitionsList =
'["https://www.googleapis.com/auth/games",
"https://www.googleapis.com/auth/plus.login"]
requestClient AchievementDefinitionsList'{..}
= go _adlConsistencyToken _adlLanguage _adlPageToken
_adlMaxResults
(Just AltJSON)
gamesService
where go
= buildClient
(Proxy :: Proxy AchievementDefinitionsListResource)
mempty