module Network.Google.Resource.CloudResourceManager.Projects.Create
(
ProjectsCreateResource
, projectsCreate
, ProjectsCreate
, pcXgafv
, pcUploadProtocol
, pcPp
, pcAccessToken
, pcUploadType
, pcPayload
, pcBearerToken
, pcCallback
) where
import Network.Google.Prelude
import Network.Google.ResourceManager.Types
type ProjectsCreateResource =
"v1beta1" :>
"projects" :>
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] Project :> Post '[JSON] Project
data ProjectsCreate = ProjectsCreate
{ _pcXgafv :: !(Maybe Text)
, _pcUploadProtocol :: !(Maybe Text)
, _pcPp :: !Bool
, _pcAccessToken :: !(Maybe Text)
, _pcUploadType :: !(Maybe Text)
, _pcPayload :: !Project
, _pcBearerToken :: !(Maybe Text)
, _pcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsCreate
:: Project
-> ProjectsCreate
projectsCreate pPcPayload_ =
ProjectsCreate
{ _pcXgafv = Nothing
, _pcUploadProtocol = Nothing
, _pcPp = True
, _pcAccessToken = Nothing
, _pcUploadType = Nothing
, _pcPayload = pPcPayload_
, _pcBearerToken = Nothing
, _pcCallback = Nothing
}
pcXgafv :: Lens' ProjectsCreate (Maybe Text)
pcXgafv = lens _pcXgafv (\ s a -> s{_pcXgafv = a})
pcUploadProtocol :: Lens' ProjectsCreate (Maybe Text)
pcUploadProtocol
= lens _pcUploadProtocol
(\ s a -> s{_pcUploadProtocol = a})
pcPp :: Lens' ProjectsCreate Bool
pcPp = lens _pcPp (\ s a -> s{_pcPp = a})
pcAccessToken :: Lens' ProjectsCreate (Maybe Text)
pcAccessToken
= lens _pcAccessToken
(\ s a -> s{_pcAccessToken = a})
pcUploadType :: Lens' ProjectsCreate (Maybe Text)
pcUploadType
= lens _pcUploadType (\ s a -> s{_pcUploadType = a})
pcPayload :: Lens' ProjectsCreate Project
pcPayload
= lens _pcPayload (\ s a -> s{_pcPayload = a})
pcBearerToken :: Lens' ProjectsCreate (Maybe Text)
pcBearerToken
= lens _pcBearerToken
(\ s a -> s{_pcBearerToken = a})
pcCallback :: Lens' ProjectsCreate (Maybe Text)
pcCallback
= lens _pcCallback (\ s a -> s{_pcCallback = a})
instance GoogleRequest ProjectsCreate where
type Rs ProjectsCreate = Project
requestClient ProjectsCreate{..}
= go _pcXgafv _pcUploadProtocol (Just _pcPp)
_pcAccessToken
_pcUploadType
_pcBearerToken
_pcCallback
(Just AltJSON)
_pcPayload
resourceManagerService
where go
= buildClient (Proxy :: Proxy ProjectsCreateResource)
mempty