{-# 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.LeaderboardConfigurations.List
(
LeaderboardConfigurationsListResource
, leaderboardConfigurationsList
, LeaderboardConfigurationsList
, lclApplicationId
, lclPageToken
, lclMaxResults
) where
import Network.Google.GamesConfiguration.Types
import Network.Google.Prelude
type LeaderboardConfigurationsListResource =
"games" :>
"v1configuration" :>
"applications" :>
Capture "applicationId" Text :>
"leaderboards" :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] LeaderboardConfigurationListResponse
data LeaderboardConfigurationsList = LeaderboardConfigurationsList'
{ _lclApplicationId :: !Text
, _lclPageToken :: !(Maybe Text)
, _lclMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
leaderboardConfigurationsList
:: Text
-> LeaderboardConfigurationsList
leaderboardConfigurationsList pLclApplicationId_ =
LeaderboardConfigurationsList'
{ _lclApplicationId = pLclApplicationId_
, _lclPageToken = Nothing
, _lclMaxResults = Nothing
}
lclApplicationId :: Lens' LeaderboardConfigurationsList Text
lclApplicationId
= lens _lclApplicationId
(\ s a -> s{_lclApplicationId = a})
lclPageToken :: Lens' LeaderboardConfigurationsList (Maybe Text)
lclPageToken
= lens _lclPageToken (\ s a -> s{_lclPageToken = a})
lclMaxResults :: Lens' LeaderboardConfigurationsList (Maybe Int32)
lclMaxResults
= lens _lclMaxResults
(\ s a -> s{_lclMaxResults = a})
. mapping _Coerce
instance GoogleRequest LeaderboardConfigurationsList
where
type Rs LeaderboardConfigurationsList =
LeaderboardConfigurationListResponse
type Scopes LeaderboardConfigurationsList =
'["https://www.googleapis.com/auth/androidpublisher"]
requestClient LeaderboardConfigurationsList'{..}
= go _lclApplicationId _lclPageToken _lclMaxResults
(Just AltJSON)
gamesConfigurationService
where go
= buildClient
(Proxy ::
Proxy LeaderboardConfigurationsListResource)
mempty