{-# 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.Claims.Search
(
ClaimsSearchResource
, claimsSearch
, ClaimsSearch
, csXgafv
, csLanguageCode
, csUploadProtocol
, csOffSet
, csMaxAgeDays
, csAccessToken
, csUploadType
, csReviewPublisherSiteFilter
, csQuery
, csPageToken
, csPageSize
, csCallback
) where
import Network.Google.FactCheckTools.Types
import Network.Google.Prelude
type ClaimsSearchResource =
"v1alpha1" :>
"claims:search" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "languageCode" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "offset" (Textual Int32) :>
QueryParam "maxAgeDays" (Textual Int32) :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "reviewPublisherSiteFilter" Text :>
QueryParam "query" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON]
GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse
data ClaimsSearch =
ClaimsSearch'
{ _csXgafv :: !(Maybe Xgafv)
, _csLanguageCode :: !(Maybe Text)
, _csUploadProtocol :: !(Maybe Text)
, _csOffSet :: !(Maybe (Textual Int32))
, _csMaxAgeDays :: !(Maybe (Textual Int32))
, _csAccessToken :: !(Maybe Text)
, _csUploadType :: !(Maybe Text)
, _csReviewPublisherSiteFilter :: !(Maybe Text)
, _csQuery :: !(Maybe Text)
, _csPageToken :: !(Maybe Text)
, _csPageSize :: !(Maybe (Textual Int32))
, _csCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
claimsSearch
:: ClaimsSearch
claimsSearch =
ClaimsSearch'
{ _csXgafv = Nothing
, _csLanguageCode = Nothing
, _csUploadProtocol = Nothing
, _csOffSet = Nothing
, _csMaxAgeDays = Nothing
, _csAccessToken = Nothing
, _csUploadType = Nothing
, _csReviewPublisherSiteFilter = Nothing
, _csQuery = Nothing
, _csPageToken = Nothing
, _csPageSize = Nothing
, _csCallback = Nothing
}
csXgafv :: Lens' ClaimsSearch (Maybe Xgafv)
csXgafv = lens _csXgafv (\ s a -> s{_csXgafv = a})
csLanguageCode :: Lens' ClaimsSearch (Maybe Text)
csLanguageCode
= lens _csLanguageCode
(\ s a -> s{_csLanguageCode = a})
csUploadProtocol :: Lens' ClaimsSearch (Maybe Text)
csUploadProtocol
= lens _csUploadProtocol
(\ s a -> s{_csUploadProtocol = a})
csOffSet :: Lens' ClaimsSearch (Maybe Int32)
csOffSet
= lens _csOffSet (\ s a -> s{_csOffSet = a}) .
mapping _Coerce
csMaxAgeDays :: Lens' ClaimsSearch (Maybe Int32)
csMaxAgeDays
= lens _csMaxAgeDays (\ s a -> s{_csMaxAgeDays = a})
. mapping _Coerce
csAccessToken :: Lens' ClaimsSearch (Maybe Text)
csAccessToken
= lens _csAccessToken
(\ s a -> s{_csAccessToken = a})
csUploadType :: Lens' ClaimsSearch (Maybe Text)
csUploadType
= lens _csUploadType (\ s a -> s{_csUploadType = a})
csReviewPublisherSiteFilter :: Lens' ClaimsSearch (Maybe Text)
csReviewPublisherSiteFilter
= lens _csReviewPublisherSiteFilter
(\ s a -> s{_csReviewPublisherSiteFilter = a})
csQuery :: Lens' ClaimsSearch (Maybe Text)
csQuery = lens _csQuery (\ s a -> s{_csQuery = a})
csPageToken :: Lens' ClaimsSearch (Maybe Text)
csPageToken
= lens _csPageToken (\ s a -> s{_csPageToken = a})
csPageSize :: Lens' ClaimsSearch (Maybe Int32)
csPageSize
= lens _csPageSize (\ s a -> s{_csPageSize = a}) .
mapping _Coerce
csCallback :: Lens' ClaimsSearch (Maybe Text)
csCallback
= lens _csCallback (\ s a -> s{_csCallback = a})
instance GoogleRequest ClaimsSearch where
type Rs ClaimsSearch =
GoogleFactcheckingFactchecktoolsV1alpha1FactCheckedClaimSearchResponse
type Scopes ClaimsSearch = '[]
requestClient ClaimsSearch'{..}
= go _csXgafv _csLanguageCode _csUploadProtocol
_csOffSet
_csMaxAgeDays
_csAccessToken
_csUploadType
_csReviewPublisherSiteFilter
_csQuery
_csPageToken
_csPageSize
_csCallback
(Just AltJSON)
factCheckToolsService
where go
= buildClient (Proxy :: Proxy ClaimsSearchResource)
mempty