{-# 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.Update
(
PagesUpdateResource
, pagesUpdate
, PagesUpdate
, puXgafv
, puUploadProtocol
, puAccessToken
, puUploadType
, puPayload
, puName
, puCallback
) where
import Network.Google.FactCheckTools.Types
import Network.Google.Prelude
type PagesUpdateResource =
"v1alpha1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage
:>
Put '[JSON]
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage
data PagesUpdate =
PagesUpdate'
{ _puXgafv :: !(Maybe Xgafv)
, _puUploadProtocol :: !(Maybe Text)
, _puAccessToken :: !(Maybe Text)
, _puUploadType :: !(Maybe Text)
, _puPayload :: !GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage
, _puName :: !Text
, _puCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
pagesUpdate
:: GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage
-> Text
-> PagesUpdate
pagesUpdate pPuPayload_ pPuName_ =
PagesUpdate'
{ _puXgafv = Nothing
, _puUploadProtocol = Nothing
, _puAccessToken = Nothing
, _puUploadType = Nothing
, _puPayload = pPuPayload_
, _puName = pPuName_
, _puCallback = Nothing
}
puXgafv :: Lens' PagesUpdate (Maybe Xgafv)
puXgafv = lens _puXgafv (\ s a -> s{_puXgafv = a})
puUploadProtocol :: Lens' PagesUpdate (Maybe Text)
puUploadProtocol
= lens _puUploadProtocol
(\ s a -> s{_puUploadProtocol = a})
puAccessToken :: Lens' PagesUpdate (Maybe Text)
puAccessToken
= lens _puAccessToken
(\ s a -> s{_puAccessToken = a})
puUploadType :: Lens' PagesUpdate (Maybe Text)
puUploadType
= lens _puUploadType (\ s a -> s{_puUploadType = a})
puPayload :: Lens' PagesUpdate GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage
puPayload
= lens _puPayload (\ s a -> s{_puPayload = a})
puName :: Lens' PagesUpdate Text
puName = lens _puName (\ s a -> s{_puName = a})
puCallback :: Lens' PagesUpdate (Maybe Text)
puCallback
= lens _puCallback (\ s a -> s{_puCallback = a})
instance GoogleRequest PagesUpdate where
type Rs PagesUpdate =
GoogleFactcheckingFactchecktoolsV1alpha1ClaimReviewMarkupPage
type Scopes PagesUpdate =
'["https://www.googleapis.com/auth/userinfo.email"]
requestClient PagesUpdate'{..}
= go _puName _puXgafv _puUploadProtocol
_puAccessToken
_puUploadType
_puCallback
(Just AltJSON)
_puPayload
factCheckToolsService
where go
= buildClient (Proxy :: Proxy PagesUpdateResource)
mempty