module Network.Google.Resource.Games.TurnBasedMatches.Create
(
TurnBasedMatchesCreateResource
, turnBasedMatchesCreate
, TurnBasedMatchesCreate
, tbmcConsistencyToken
, tbmcPayload
, tbmcLanguage
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type TurnBasedMatchesCreateResource =
"games" :>
"v1" :>
"turnbasedmatches" :>
"create" :>
QueryParam "consistencyToken" (Textual Int64) :>
QueryParam "language" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] TurnBasedMatchCreateRequest :>
Post '[JSON] TurnBasedMatch
data TurnBasedMatchesCreate = TurnBasedMatchesCreate'
{ _tbmcConsistencyToken :: !(Maybe (Textual Int64))
, _tbmcPayload :: !TurnBasedMatchCreateRequest
, _tbmcLanguage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
turnBasedMatchesCreate
:: TurnBasedMatchCreateRequest
-> TurnBasedMatchesCreate
turnBasedMatchesCreate pTbmcPayload_ =
TurnBasedMatchesCreate'
{ _tbmcConsistencyToken = Nothing
, _tbmcPayload = pTbmcPayload_
, _tbmcLanguage = Nothing
}
tbmcConsistencyToken :: Lens' TurnBasedMatchesCreate (Maybe Int64)
tbmcConsistencyToken
= lens _tbmcConsistencyToken
(\ s a -> s{_tbmcConsistencyToken = a})
. mapping _Coerce
tbmcPayload :: Lens' TurnBasedMatchesCreate TurnBasedMatchCreateRequest
tbmcPayload
= lens _tbmcPayload (\ s a -> s{_tbmcPayload = a})
tbmcLanguage :: Lens' TurnBasedMatchesCreate (Maybe Text)
tbmcLanguage
= lens _tbmcLanguage (\ s a -> s{_tbmcLanguage = a})
instance GoogleRequest TurnBasedMatchesCreate where
type Rs TurnBasedMatchesCreate = TurnBasedMatch
type Scopes TurnBasedMatchesCreate =
'["https://www.googleapis.com/auth/games",
"https://www.googleapis.com/auth/plus.login"]
requestClient TurnBasedMatchesCreate'{..}
= go _tbmcConsistencyToken _tbmcLanguage
(Just AltJSON)
_tbmcPayload
gamesService
where go
= buildClient
(Proxy :: Proxy TurnBasedMatchesCreateResource)
mempty