{-# 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.Revisions.Check
(
RevisionsCheckResource
, revisionsCheck
, RevisionsCheck
, rcClientRevision
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type RevisionsCheckResource =
"games" :>
"v1" :>
"revisions" :>
"check" :>
QueryParam "clientRevision" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] RevisionCheckResponse
newtype RevisionsCheck = RevisionsCheck'
{ _rcClientRevision :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
revisionsCheck
:: Text
-> RevisionsCheck
revisionsCheck pRcClientRevision_ =
RevisionsCheck'
{ _rcClientRevision = pRcClientRevision_
}
rcClientRevision :: Lens' RevisionsCheck Text
rcClientRevision
= lens _rcClientRevision
(\ s a -> s{_rcClientRevision = a})
instance GoogleRequest RevisionsCheck where
type Rs RevisionsCheck = RevisionCheckResponse
type Scopes RevisionsCheck =
'["https://www.googleapis.com/auth/games"]
requestClient RevisionsCheck'{..}
= go (Just _rcClientRevision) (Just AltJSON)
gamesService
where go
= buildClient (Proxy :: Proxy RevisionsCheckResource)
mempty