{-# 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.ResetForAllPlayers
(
ScoresResetForAllPlayersResource
, scoresResetForAllPlayers
, ScoresResetForAllPlayers
, srfapLeaderboardId
) where
import Network.Google.GamesManagement.Types
import Network.Google.Prelude
type ScoresResetForAllPlayersResource =
"games" :>
"v1management" :>
"leaderboards" :>
Capture "leaderboardId" Text :>
"scores" :>
"resetForAllPlayers" :>
QueryParam "alt" AltJSON :> Post '[JSON] ()
newtype ScoresResetForAllPlayers = ScoresResetForAllPlayers'
{ _srfapLeaderboardId :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
scoresResetForAllPlayers
:: Text
-> ScoresResetForAllPlayers
scoresResetForAllPlayers pSrfapLeaderboardId_ =
ScoresResetForAllPlayers'
{ _srfapLeaderboardId = pSrfapLeaderboardId_
}
srfapLeaderboardId :: Lens' ScoresResetForAllPlayers Text
srfapLeaderboardId
= lens _srfapLeaderboardId
(\ s a -> s{_srfapLeaderboardId = a})
instance GoogleRequest ScoresResetForAllPlayers where
type Rs ScoresResetForAllPlayers = ()
type Scopes ScoresResetForAllPlayers =
'["https://www.googleapis.com/auth/games"]
requestClient ScoresResetForAllPlayers'{..}
= go _srfapLeaderboardId (Just AltJSON)
gamesManagementService
where go
= buildClient
(Proxy :: Proxy ScoresResetForAllPlayersResource)
mempty