{-# 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.List
(
PagesListResource
, pagesList
, PagesList
, plXgafv
, plUploadProtocol
, plOffSet
, plAccessToken
, plURL
, plUploadType
, plPageToken
, plOrganization
, plPageSize
, plCallback
) where
import Network.Google.FactCheckTools.Types
import Network.Google.Prelude
type PagesListResource =
"v1alpha1" :>
"pages" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "offset" (Textual Int32) :>
QueryParam "access_token" Text :>
QueryParam "url" Text :>
QueryParam "uploadType" Text :>
QueryParam "pageToken" Text :>
QueryParam "organization" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON]
GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse
data PagesList =
PagesList'
{ _plXgafv :: !(Maybe Xgafv)
, _plUploadProtocol :: !(Maybe Text)
, _plOffSet :: !(Maybe (Textual Int32))
, _plAccessToken :: !(Maybe Text)
, _plURL :: !(Maybe Text)
, _plUploadType :: !(Maybe Text)
, _plPageToken :: !(Maybe Text)
, _plOrganization :: !(Maybe Text)
, _plPageSize :: !(Maybe (Textual Int32))
, _plCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
pagesList
:: PagesList
pagesList =
PagesList'
{ _plXgafv = Nothing
, _plUploadProtocol = Nothing
, _plOffSet = Nothing
, _plAccessToken = Nothing
, _plURL = Nothing
, _plUploadType = Nothing
, _plPageToken = Nothing
, _plOrganization = Nothing
, _plPageSize = Nothing
, _plCallback = Nothing
}
plXgafv :: Lens' PagesList (Maybe Xgafv)
plXgafv = lens _plXgafv (\ s a -> s{_plXgafv = a})
plUploadProtocol :: Lens' PagesList (Maybe Text)
plUploadProtocol
= lens _plUploadProtocol
(\ s a -> s{_plUploadProtocol = a})
plOffSet :: Lens' PagesList (Maybe Int32)
plOffSet
= lens _plOffSet (\ s a -> s{_plOffSet = a}) .
mapping _Coerce
plAccessToken :: Lens' PagesList (Maybe Text)
plAccessToken
= lens _plAccessToken
(\ s a -> s{_plAccessToken = a})
plURL :: Lens' PagesList (Maybe Text)
plURL = lens _plURL (\ s a -> s{_plURL = a})
plUploadType :: Lens' PagesList (Maybe Text)
plUploadType
= lens _plUploadType (\ s a -> s{_plUploadType = a})
plPageToken :: Lens' PagesList (Maybe Text)
plPageToken
= lens _plPageToken (\ s a -> s{_plPageToken = a})
plOrganization :: Lens' PagesList (Maybe Text)
plOrganization
= lens _plOrganization
(\ s a -> s{_plOrganization = a})
plPageSize :: Lens' PagesList (Maybe Int32)
plPageSize
= lens _plPageSize (\ s a -> s{_plPageSize = a}) .
mapping _Coerce
plCallback :: Lens' PagesList (Maybe Text)
plCallback
= lens _plCallback (\ s a -> s{_plCallback = a})
instance GoogleRequest PagesList where
type Rs PagesList =
GoogleFactcheckingFactchecktoolsV1alpha1ListClaimReviewMarkupPagesResponse
type Scopes PagesList =
'["https://www.googleapis.com/auth/userinfo.email"]
requestClient PagesList'{..}
= go _plXgafv _plUploadProtocol _plOffSet
_plAccessToken
_plURL
_plUploadType
_plPageToken
_plOrganization
_plPageSize
_plCallback
(Just AltJSON)
factCheckToolsService
where go
= buildClient (Proxy :: Proxy PagesListResource)
mempty