{-# 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