module Network.Google.Resource.Partners.Companies.Leads.Create
(
CompaniesLeadsCreateResource
, companiesLeadsCreate
, CompaniesLeadsCreate
, clcXgafv
, clcUploadProtocol
, clcCompanyId
, clcPp
, clcAccessToken
, clcUploadType
, clcPayload
, clcBearerToken
, clcCallback
) where
import Network.Google.Partners.Types
import Network.Google.Prelude
type CompaniesLeadsCreateResource =
"v2" :>
"companies" :>
Capture "companyId" Text :>
"leads" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] CreateLeadRequest :>
Post '[JSON] CreateLeadResponse
data CompaniesLeadsCreate = CompaniesLeadsCreate'
{ _clcXgafv :: !(Maybe Text)
, _clcUploadProtocol :: !(Maybe Text)
, _clcCompanyId :: !Text
, _clcPp :: !Bool
, _clcAccessToken :: !(Maybe Text)
, _clcUploadType :: !(Maybe Text)
, _clcPayload :: !CreateLeadRequest
, _clcBearerToken :: !(Maybe Text)
, _clcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
companiesLeadsCreate
:: Text
-> CreateLeadRequest
-> CompaniesLeadsCreate
companiesLeadsCreate pClcCompanyId_ pClcPayload_ =
CompaniesLeadsCreate'
{ _clcXgafv = Nothing
, _clcUploadProtocol = Nothing
, _clcCompanyId = pClcCompanyId_
, _clcPp = True
, _clcAccessToken = Nothing
, _clcUploadType = Nothing
, _clcPayload = pClcPayload_
, _clcBearerToken = Nothing
, _clcCallback = Nothing
}
clcXgafv :: Lens' CompaniesLeadsCreate (Maybe Text)
clcXgafv = lens _clcXgafv (\ s a -> s{_clcXgafv = a})
clcUploadProtocol :: Lens' CompaniesLeadsCreate (Maybe Text)
clcUploadProtocol
= lens _clcUploadProtocol
(\ s a -> s{_clcUploadProtocol = a})
clcCompanyId :: Lens' CompaniesLeadsCreate Text
clcCompanyId
= lens _clcCompanyId (\ s a -> s{_clcCompanyId = a})
clcPp :: Lens' CompaniesLeadsCreate Bool
clcPp = lens _clcPp (\ s a -> s{_clcPp = a})
clcAccessToken :: Lens' CompaniesLeadsCreate (Maybe Text)
clcAccessToken
= lens _clcAccessToken
(\ s a -> s{_clcAccessToken = a})
clcUploadType :: Lens' CompaniesLeadsCreate (Maybe Text)
clcUploadType
= lens _clcUploadType
(\ s a -> s{_clcUploadType = a})
clcPayload :: Lens' CompaniesLeadsCreate CreateLeadRequest
clcPayload
= lens _clcPayload (\ s a -> s{_clcPayload = a})
clcBearerToken :: Lens' CompaniesLeadsCreate (Maybe Text)
clcBearerToken
= lens _clcBearerToken
(\ s a -> s{_clcBearerToken = a})
clcCallback :: Lens' CompaniesLeadsCreate (Maybe Text)
clcCallback
= lens _clcCallback (\ s a -> s{_clcCallback = a})
instance GoogleRequest CompaniesLeadsCreate where
type Rs CompaniesLeadsCreate = CreateLeadResponse
type Scopes CompaniesLeadsCreate = '[]
requestClient CompaniesLeadsCreate'{..}
= go _clcCompanyId _clcXgafv _clcUploadProtocol
(Just _clcPp)
_clcAccessToken
_clcUploadType
_clcBearerToken
_clcCallback
(Just AltJSON)
_clcPayload
partnersService
where go
= buildClient
(Proxy :: Proxy CompaniesLeadsCreateResource)
mempty