module Network.Google.Resource.Games.Players.List
(
PlayersListResource
, playersList
, PlayersList
, plConsistencyToken
, plCollection
, plLanguage
, plPageToken
, plMaxResults
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type PlayersListResource =
"games" :>
"v1" :>
"players" :>
"me" :>
"players" :>
Capture "collection" PlayersListCollection :>
QueryParam "consistencyToken" (Textual Int64) :>
QueryParam "language" Text :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] PlayerListResponse
data PlayersList = PlayersList'
{ _plConsistencyToken :: !(Maybe (Textual Int64))
, _plCollection :: !PlayersListCollection
, _plLanguage :: !(Maybe Text)
, _plPageToken :: !(Maybe Text)
, _plMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
playersList
:: PlayersListCollection
-> PlayersList
playersList pPlCollection_ =
PlayersList'
{ _plConsistencyToken = Nothing
, _plCollection = pPlCollection_
, _plLanguage = Nothing
, _plPageToken = Nothing
, _plMaxResults = Nothing
}
plConsistencyToken :: Lens' PlayersList (Maybe Int64)
plConsistencyToken
= lens _plConsistencyToken
(\ s a -> s{_plConsistencyToken = a})
. mapping _Coerce
plCollection :: Lens' PlayersList PlayersListCollection
plCollection
= lens _plCollection (\ s a -> s{_plCollection = a})
plLanguage :: Lens' PlayersList (Maybe Text)
plLanguage
= lens _plLanguage (\ s a -> s{_plLanguage = a})
plPageToken :: Lens' PlayersList (Maybe Text)
plPageToken
= lens _plPageToken (\ s a -> s{_plPageToken = a})
plMaxResults :: Lens' PlayersList (Maybe Int32)
plMaxResults
= lens _plMaxResults (\ s a -> s{_plMaxResults = a})
. mapping _Coerce
instance GoogleRequest PlayersList where
type Rs PlayersList = PlayerListResponse
type Scopes PlayersList =
'["https://www.googleapis.com/auth/games",
"https://www.googleapis.com/auth/plus.login"]
requestClient PlayersList'{..}
= go _plCollection _plConsistencyToken _plLanguage
_plPageToken
_plMaxResults
(Just AltJSON)
gamesService
where go
= buildClient (Proxy :: Proxy PlayersListResource)
mempty