{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.GamesManagement.Scores.ResetMultipleForAllPlayers
(
ScoresResetMultipleForAllPlayersResource
, scoresResetMultipleForAllPlayers
, ScoresResetMultipleForAllPlayers
, srmfapPayload
) where
import Network.Google.GamesManagement.Types
import Network.Google.Prelude
type ScoresResetMultipleForAllPlayersResource =
"games" :>
"v1management" :>
"scores" :>
"resetMultipleForAllPlayers" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] ScoresResetMultipleForAllRequest :>
Post '[JSON] ()
newtype ScoresResetMultipleForAllPlayers = ScoresResetMultipleForAllPlayers'
{ _srmfapPayload :: ScoresResetMultipleForAllRequest
} deriving (Eq,Show,Data,Typeable,Generic)
scoresResetMultipleForAllPlayers
:: ScoresResetMultipleForAllRequest
-> ScoresResetMultipleForAllPlayers
scoresResetMultipleForAllPlayers pSrmfapPayload_ =
ScoresResetMultipleForAllPlayers'
{ _srmfapPayload = pSrmfapPayload_
}
srmfapPayload :: Lens' ScoresResetMultipleForAllPlayers ScoresResetMultipleForAllRequest
srmfapPayload
= lens _srmfapPayload
(\ s a -> s{_srmfapPayload = a})
instance GoogleRequest
ScoresResetMultipleForAllPlayers where
type Rs ScoresResetMultipleForAllPlayers = ()
type Scopes ScoresResetMultipleForAllPlayers =
'["https://www.googleapis.com/auth/games"]
requestClient ScoresResetMultipleForAllPlayers'{..}
= go (Just AltJSON) _srmfapPayload
gamesManagementService
where go
= buildClient
(Proxy ::
Proxy ScoresResetMultipleForAllPlayersResource)
mempty