{-# 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.FactCheckTools.Pages.Get
(
PagesGetResource
, pagesGet
, PagesGet
, pgXgafv
, pgUploadProtocol
, pgAccessToken
, pgUploadType
, pgName
, pgCallback
) where
import Network.Google.FactCheckTools.Types
import Network.Google.Prelude
type PagesGetResource =
"v1alpha1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON]
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage
data PagesGet =
PagesGet'
{ _pgXgafv :: !(Maybe Xgafv)
, _pgUploadProtocol :: !(Maybe Text)
, _pgAccessToken :: !(Maybe Text)
, _pgUploadType :: !(Maybe Text)
, _pgName :: !Text
, _pgCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
pagesGet
:: Text
-> PagesGet
pagesGet pPgName_ =
PagesGet'
{ _pgXgafv = Nothing
, _pgUploadProtocol = Nothing
, _pgAccessToken = Nothing
, _pgUploadType = Nothing
, _pgName = pPgName_
, _pgCallback = Nothing
}
pgXgafv :: Lens' PagesGet (Maybe Xgafv)
pgXgafv = lens _pgXgafv (\ s a -> s{_pgXgafv = a})
pgUploadProtocol :: Lens' PagesGet (Maybe Text)
pgUploadProtocol
= lens _pgUploadProtocol
(\ s a -> s{_pgUploadProtocol = a})
pgAccessToken :: Lens' PagesGet (Maybe Text)
pgAccessToken
= lens _pgAccessToken
(\ s a -> s{_pgAccessToken = a})
pgUploadType :: Lens' PagesGet (Maybe Text)
pgUploadType
= lens _pgUploadType (\ s a -> s{_pgUploadType = a})
pgName :: Lens' PagesGet Text
pgName = lens _pgName (\ s a -> s{_pgName = a})
pgCallback :: Lens' PagesGet (Maybe Text)
pgCallback
= lens _pgCallback (\ s a -> s{_pgCallback = a})
instance GoogleRequest PagesGet where
type Rs PagesGet =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage
type Scopes PagesGet =
'["https://www.googleapis.com/auth/userinfo.email"]
requestClient PagesGet'{..}
= go _pgName _pgXgafv _pgUploadProtocol
_pgAccessToken
_pgUploadType
_pgCallback
(Just AltJSON)
factCheckToolsService
where go
= buildClient (Proxy :: Proxy PagesGetResource)
mempty