{-# 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.Delete
(
PagesDeleteResource
, pagesDelete
, PagesDelete
, pdXgafv
, pdUploadProtocol
, pdAccessToken
, pdUploadType
, pdName
, pdCallback
) where
import Network.Google.FactCheckTools.Types
import Network.Google.Prelude
type PagesDeleteResource =
"v1alpha1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Delete '[JSON] GoogleProtobufEmpty
data PagesDelete =
PagesDelete'
{ _pdXgafv :: !(Maybe Xgafv)
, _pdUploadProtocol :: !(Maybe Text)
, _pdAccessToken :: !(Maybe Text)
, _pdUploadType :: !(Maybe Text)
, _pdName :: !Text
, _pdCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
pagesDelete
:: Text
-> PagesDelete
pagesDelete pPdName_ =
PagesDelete'
{ _pdXgafv = Nothing
, _pdUploadProtocol = Nothing
, _pdAccessToken = Nothing
, _pdUploadType = Nothing
, _pdName = pPdName_
, _pdCallback = Nothing
}
pdXgafv :: Lens' PagesDelete (Maybe Xgafv)
pdXgafv = lens _pdXgafv (\ s a -> s{_pdXgafv = a})
pdUploadProtocol :: Lens' PagesDelete (Maybe Text)
pdUploadProtocol
= lens _pdUploadProtocol
(\ s a -> s{_pdUploadProtocol = a})
pdAccessToken :: Lens' PagesDelete (Maybe Text)
pdAccessToken
= lens _pdAccessToken
(\ s a -> s{_pdAccessToken = a})
pdUploadType :: Lens' PagesDelete (Maybe Text)
pdUploadType
= lens _pdUploadType (\ s a -> s{_pdUploadType = a})
pdName :: Lens' PagesDelete Text
pdName = lens _pdName (\ s a -> s{_pdName = a})
pdCallback :: Lens' PagesDelete (Maybe Text)
pdCallback
= lens _pdCallback (\ s a -> s{_pdCallback = a})
instance GoogleRequest PagesDelete where
type Rs PagesDelete = GoogleProtobufEmpty
type Scopes PagesDelete =
'["https://www.googleapis.com/auth/userinfo.email"]
requestClient PagesDelete'{..}
= go _pdName _pdXgafv _pdUploadProtocol
_pdAccessToken
_pdUploadType
_pdCallback
(Just AltJSON)
factCheckToolsService
where go
= buildClient (Proxy :: Proxy PagesDeleteResource)
mempty