{-# 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.Cloudbuild.Projects.Triggers.Create
(
ProjectsTriggersCreateResource
, projectsTriggersCreate
, ProjectsTriggersCreate
, ptcXgafv
, ptcUploadProtocol
, ptcAccessToken
, ptcUploadType
, ptcPayload
, ptcProjectId
, ptcCallback
) where
import Network.Google.ContainerBuilder.Types
import Network.Google.Prelude
type ProjectsTriggersCreateResource =
"v1" :>
"projects" :>
Capture "projectId" Text :>
"triggers" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] BuildTrigger :>
Post '[JSON] BuildTrigger
data ProjectsTriggersCreate = ProjectsTriggersCreate'
{ _ptcXgafv :: !(Maybe Xgafv)
, _ptcUploadProtocol :: !(Maybe Text)
, _ptcAccessToken :: !(Maybe Text)
, _ptcUploadType :: !(Maybe Text)
, _ptcPayload :: !BuildTrigger
, _ptcProjectId :: !Text
, _ptcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsTriggersCreate
:: BuildTrigger
-> Text
-> ProjectsTriggersCreate
projectsTriggersCreate pPtcPayload_ pPtcProjectId_ =
ProjectsTriggersCreate'
{ _ptcXgafv = Nothing
, _ptcUploadProtocol = Nothing
, _ptcAccessToken = Nothing
, _ptcUploadType = Nothing
, _ptcPayload = pPtcPayload_
, _ptcProjectId = pPtcProjectId_
, _ptcCallback = Nothing
}
ptcXgafv :: Lens' ProjectsTriggersCreate (Maybe Xgafv)
ptcXgafv = lens _ptcXgafv (\ s a -> s{_ptcXgafv = a})
ptcUploadProtocol :: Lens' ProjectsTriggersCreate (Maybe Text)
ptcUploadProtocol
= lens _ptcUploadProtocol
(\ s a -> s{_ptcUploadProtocol = a})
ptcAccessToken :: Lens' ProjectsTriggersCreate (Maybe Text)
ptcAccessToken
= lens _ptcAccessToken
(\ s a -> s{_ptcAccessToken = a})
ptcUploadType :: Lens' ProjectsTriggersCreate (Maybe Text)
ptcUploadType
= lens _ptcUploadType
(\ s a -> s{_ptcUploadType = a})
ptcPayload :: Lens' ProjectsTriggersCreate BuildTrigger
ptcPayload
= lens _ptcPayload (\ s a -> s{_ptcPayload = a})
ptcProjectId :: Lens' ProjectsTriggersCreate Text
ptcProjectId
= lens _ptcProjectId (\ s a -> s{_ptcProjectId = a})
ptcCallback :: Lens' ProjectsTriggersCreate (Maybe Text)
ptcCallback
= lens _ptcCallback (\ s a -> s{_ptcCallback = a})
instance GoogleRequest ProjectsTriggersCreate where
type Rs ProjectsTriggersCreate = BuildTrigger
type Scopes ProjectsTriggersCreate =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsTriggersCreate'{..}
= go _ptcProjectId _ptcXgafv _ptcUploadProtocol
_ptcAccessToken
_ptcUploadType
_ptcCallback
(Just AltJSON)
_ptcPayload
containerBuilderService
where go
= buildClient
(Proxy :: Proxy ProjectsTriggersCreateResource)
mempty