{-# 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"]
requestClient TurnBasedMatchesDismiss'{..}
= go _tMatchId (Just AltJSON) gamesService
where go
= buildClient
(Proxy :: Proxy TurnBasedMatchesDismissResource)
mempty