{-# 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.Games.TurnBasedMatches.Dismiss
(
TurnBasedMatchesDismissResource
, turnBasedMatchesDismiss
, TurnBasedMatchesDismiss
, tMatchId
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type TurnBasedMatchesDismissResource =
"games" :>
"v1" :>
"turnbasedmatches" :>
Capture "matchId" Text :>
"dismiss" :>
QueryParam "alt" AltJSON :> Put '[JSON] ()
newtype TurnBasedMatchesDismiss =
TurnBasedMatchesDismiss'
{ _tMatchId :: Text
}
deriving (Eq, Show, Data, Typeable, Generic)
turnBasedMatchesDismiss
:: Text
-> TurnBasedMatchesDismiss
turnBasedMatchesDismiss pTMatchId_ =
TurnBasedMatchesDismiss' {_tMatchId = pTMatchId_}
tMatchId :: Lens' TurnBasedMatchesDismiss Text
tMatchId = lens _tMatchId (\ s a -> s{_tMatchId = a})
instance GoogleRequest TurnBasedMatchesDismiss where
type Rs TurnBasedMatchesDismiss = ()
type Scopes TurnBasedMatchesDismiss =
'["https://www.googleapis.com/auth/games",
"https://www.googleapis.com/auth/plus.me"]
requestClient TurnBasedMatchesDismiss'{..}
= go _tMatchId (Just AltJSON) gamesService
where go
= buildClient
(Proxy :: Proxy TurnBasedMatchesDismissResource)
mempty