module Network.Google.Resource.Games.TurnBasedMatches.Finish
(
TurnBasedMatchesFinishResource
, turnBasedMatchesFinish
, TurnBasedMatchesFinish
, tbmfConsistencyToken
, tbmfPayload
, tbmfLanguage
, tbmfMatchId
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type TurnBasedMatchesFinishResource =
"games" :>
"v1" :>
"turnbasedmatches" :>
Capture "matchId" Text :>
"finish" :>
QueryParam "consistencyToken" (Textual Int64) :>
QueryParam "language" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] TurnBasedMatchResults :>
Put '[JSON] TurnBasedMatch
data TurnBasedMatchesFinish = TurnBasedMatchesFinish'
{ _tbmfConsistencyToken :: !(Maybe (Textual Int64))
, _tbmfPayload :: !TurnBasedMatchResults
, _tbmfLanguage :: !(Maybe Text)
, _tbmfMatchId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
turnBasedMatchesFinish
:: TurnBasedMatchResults
-> Text
-> TurnBasedMatchesFinish
turnBasedMatchesFinish pTbmfPayload_ pTbmfMatchId_ =
TurnBasedMatchesFinish'
{ _tbmfConsistencyToken = Nothing
, _tbmfPayload = pTbmfPayload_
, _tbmfLanguage = Nothing
, _tbmfMatchId = pTbmfMatchId_
}
tbmfConsistencyToken :: Lens' TurnBasedMatchesFinish (Maybe Int64)
tbmfConsistencyToken
= lens _tbmfConsistencyToken
(\ s a -> s{_tbmfConsistencyToken = a})
. mapping _Coerce
tbmfPayload :: Lens' TurnBasedMatchesFinish TurnBasedMatchResults
tbmfPayload
= lens _tbmfPayload (\ s a -> s{_tbmfPayload = a})
tbmfLanguage :: Lens' TurnBasedMatchesFinish (Maybe Text)
tbmfLanguage
= lens _tbmfLanguage (\ s a -> s{_tbmfLanguage = a})
tbmfMatchId :: Lens' TurnBasedMatchesFinish Text
tbmfMatchId
= lens _tbmfMatchId (\ s a -> s{_tbmfMatchId = a})
instance GoogleRequest TurnBasedMatchesFinish where
type Rs TurnBasedMatchesFinish = TurnBasedMatch
type Scopes TurnBasedMatchesFinish =
'["https://www.googleapis.com/auth/games",
"https://www.googleapis.com/auth/plus.login"]
requestClient TurnBasedMatchesFinish'{..}
= go _tbmfMatchId _tbmfConsistencyToken _tbmfLanguage
(Just AltJSON)
_tbmfPayload
gamesService
where go
= buildClient
(Proxy :: Proxy TurnBasedMatchesFinishResource)
mempty