module Network.Google.Resource.Games.TurnBasedMatches.LeaveTurn
(
TurnBasedMatchesLeaveTurnResource
, turnBasedMatchesLeaveTurn
, TurnBasedMatchesLeaveTurn
, tbmltConsistencyToken
, tbmltLanguage
, tbmltPendingParticipantId
, tbmltMatchId
, tbmltMatchVersion
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type TurnBasedMatchesLeaveTurnResource =
"games" :>
"v1" :>
"turnbasedmatches" :>
Capture "matchId" Text :>
"leaveTurn" :>
QueryParam "matchVersion" (Textual Int32) :>
QueryParam "consistencyToken" (Textual Int64) :>
QueryParam "language" Text :>
QueryParam "pendingParticipantId" Text :>
QueryParam "alt" AltJSON :>
Put '[JSON] TurnBasedMatch
data TurnBasedMatchesLeaveTurn = TurnBasedMatchesLeaveTurn'
{ _tbmltConsistencyToken :: !(Maybe (Textual Int64))
, _tbmltLanguage :: !(Maybe Text)
, _tbmltPendingParticipantId :: !(Maybe Text)
, _tbmltMatchId :: !Text
, _tbmltMatchVersion :: !(Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
turnBasedMatchesLeaveTurn
:: Text
-> Int32
-> TurnBasedMatchesLeaveTurn
turnBasedMatchesLeaveTurn pTbmltMatchId_ pTbmltMatchVersion_ =
TurnBasedMatchesLeaveTurn'
{ _tbmltConsistencyToken = Nothing
, _tbmltLanguage = Nothing
, _tbmltPendingParticipantId = Nothing
, _tbmltMatchId = pTbmltMatchId_
, _tbmltMatchVersion = _Coerce # pTbmltMatchVersion_
}
tbmltConsistencyToken :: Lens' TurnBasedMatchesLeaveTurn (Maybe Int64)
tbmltConsistencyToken
= lens _tbmltConsistencyToken
(\ s a -> s{_tbmltConsistencyToken = a})
. mapping _Coerce
tbmltLanguage :: Lens' TurnBasedMatchesLeaveTurn (Maybe Text)
tbmltLanguage
= lens _tbmltLanguage
(\ s a -> s{_tbmltLanguage = a})
tbmltPendingParticipantId :: Lens' TurnBasedMatchesLeaveTurn (Maybe Text)
tbmltPendingParticipantId
= lens _tbmltPendingParticipantId
(\ s a -> s{_tbmltPendingParticipantId = a})
tbmltMatchId :: Lens' TurnBasedMatchesLeaveTurn Text
tbmltMatchId
= lens _tbmltMatchId (\ s a -> s{_tbmltMatchId = a})
tbmltMatchVersion :: Lens' TurnBasedMatchesLeaveTurn Int32
tbmltMatchVersion
= lens _tbmltMatchVersion
(\ s a -> s{_tbmltMatchVersion = a})
. _Coerce
instance GoogleRequest TurnBasedMatchesLeaveTurn
where
type Rs TurnBasedMatchesLeaveTurn = TurnBasedMatch
type Scopes TurnBasedMatchesLeaveTurn =
'["https://www.googleapis.com/auth/games",
"https://www.googleapis.com/auth/plus.login"]
requestClient TurnBasedMatchesLeaveTurn'{..}
= go _tbmltMatchId (Just _tbmltMatchVersion)
_tbmltConsistencyToken
_tbmltLanguage
_tbmltPendingParticipantId
(Just AltJSON)
gamesService
where go
= buildClient
(Proxy :: Proxy TurnBasedMatchesLeaveTurnResource)
mempty