module Network.Google.Resource.Games.TurnBasedMatches.TakeTurn
(
TurnBasedMatchesTakeTurnResource
, turnBasedMatchesTakeTurn
, TurnBasedMatchesTakeTurn
, tbmttConsistencyToken
, tbmttPayload
, tbmttLanguage
, tbmttMatchId
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type TurnBasedMatchesTakeTurnResource =
"games" :>
"v1" :>
"turnbasedmatches" :>
Capture "matchId" Text :>
"turn" :>
QueryParam "consistencyToken" (Textual Int64) :>
QueryParam "language" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] TurnBasedMatchTurn :>
Put '[JSON] TurnBasedMatch
data TurnBasedMatchesTakeTurn = TurnBasedMatchesTakeTurn'
{ _tbmttConsistencyToken :: !(Maybe (Textual Int64))
, _tbmttPayload :: !TurnBasedMatchTurn
, _tbmttLanguage :: !(Maybe Text)
, _tbmttMatchId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
turnBasedMatchesTakeTurn
:: TurnBasedMatchTurn
-> Text
-> TurnBasedMatchesTakeTurn
turnBasedMatchesTakeTurn pTbmttPayload_ pTbmttMatchId_ =
TurnBasedMatchesTakeTurn'
{ _tbmttConsistencyToken = Nothing
, _tbmttPayload = pTbmttPayload_
, _tbmttLanguage = Nothing
, _tbmttMatchId = pTbmttMatchId_
}
tbmttConsistencyToken :: Lens' TurnBasedMatchesTakeTurn (Maybe Int64)
tbmttConsistencyToken
= lens _tbmttConsistencyToken
(\ s a -> s{_tbmttConsistencyToken = a})
. mapping _Coerce
tbmttPayload :: Lens' TurnBasedMatchesTakeTurn TurnBasedMatchTurn
tbmttPayload
= lens _tbmttPayload (\ s a -> s{_tbmttPayload = a})
tbmttLanguage :: Lens' TurnBasedMatchesTakeTurn (Maybe Text)
tbmttLanguage
= lens _tbmttLanguage
(\ s a -> s{_tbmttLanguage = a})
tbmttMatchId :: Lens' TurnBasedMatchesTakeTurn Text
tbmttMatchId
= lens _tbmttMatchId (\ s a -> s{_tbmttMatchId = a})
instance GoogleRequest TurnBasedMatchesTakeTurn where
type Rs TurnBasedMatchesTakeTurn = TurnBasedMatch
type Scopes TurnBasedMatchesTakeTurn =
'["https://www.googleapis.com/auth/games",
"https://www.googleapis.com/auth/plus.login"]
requestClient TurnBasedMatchesTakeTurn'{..}
= go _tbmttMatchId _tbmttConsistencyToken
_tbmttLanguage
(Just AltJSON)
_tbmttPayload
gamesService
where go
= buildClient
(Proxy :: Proxy TurnBasedMatchesTakeTurnResource)
mempty