module Network.Google.Resource.Games.Events.ListDefinitions
(
EventsListDefinitionsResource
, eventsListDefinitions
, EventsListDefinitions
, eldConsistencyToken
, eldLanguage
, eldPageToken
, eldMaxResults
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type EventsListDefinitionsResource =
"games" :>
"v1" :>
"eventDefinitions" :>
QueryParam "consistencyToken" (Textual Int64) :>
QueryParam "language" Text :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] EventDefinitionListResponse
data EventsListDefinitions = EventsListDefinitions'
{ _eldConsistencyToken :: !(Maybe (Textual Int64))
, _eldLanguage :: !(Maybe Text)
, _eldPageToken :: !(Maybe Text)
, _eldMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
eventsListDefinitions
:: EventsListDefinitions
eventsListDefinitions =
EventsListDefinitions'
{ _eldConsistencyToken = Nothing
, _eldLanguage = Nothing
, _eldPageToken = Nothing
, _eldMaxResults = Nothing
}
eldConsistencyToken :: Lens' EventsListDefinitions (Maybe Int64)
eldConsistencyToken
= lens _eldConsistencyToken
(\ s a -> s{_eldConsistencyToken = a})
. mapping _Coerce
eldLanguage :: Lens' EventsListDefinitions (Maybe Text)
eldLanguage
= lens _eldLanguage (\ s a -> s{_eldLanguage = a})
eldPageToken :: Lens' EventsListDefinitions (Maybe Text)
eldPageToken
= lens _eldPageToken (\ s a -> s{_eldPageToken = a})
eldMaxResults :: Lens' EventsListDefinitions (Maybe Int32)
eldMaxResults
= lens _eldMaxResults
(\ s a -> s{_eldMaxResults = a})
. mapping _Coerce
instance GoogleRequest EventsListDefinitions where
type Rs EventsListDefinitions =
EventDefinitionListResponse
type Scopes EventsListDefinitions =
'["https://www.googleapis.com/auth/games",
"https://www.googleapis.com/auth/plus.login"]
requestClient EventsListDefinitions'{..}
= go _eldConsistencyToken _eldLanguage _eldPageToken
_eldMaxResults
(Just AltJSON)
gamesService
where go
= buildClient
(Proxy :: Proxy EventsListDefinitionsResource)
mempty