{-# 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.ServiceNetworking.Services.Connections.Create
(
ServicesConnectionsCreateResource
, servicesConnectionsCreate
, ServicesConnectionsCreate
, sccParent
, sccXgafv
, sccUploadProtocol
, sccAccessToken
, sccUploadType
, sccPayload
, sccCallback
) where
import Network.Google.Prelude
import Network.Google.ServiceNetworking.Types
type ServicesConnectionsCreateResource =
"v1" :>
Capture "parent" Text :>
"connections" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Connection :> Post '[JSON] Operation
data ServicesConnectionsCreate =
ServicesConnectionsCreate'
{ _sccParent :: !Text
, _sccXgafv :: !(Maybe Xgafv)
, _sccUploadProtocol :: !(Maybe Text)
, _sccAccessToken :: !(Maybe Text)
, _sccUploadType :: !(Maybe Text)
, _sccPayload :: !Connection
, _sccCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
servicesConnectionsCreate
:: Text
-> Connection
-> ServicesConnectionsCreate
servicesConnectionsCreate pSccParent_ pSccPayload_ =
ServicesConnectionsCreate'
{ _sccParent = pSccParent_
, _sccXgafv = Nothing
, _sccUploadProtocol = Nothing
, _sccAccessToken = Nothing
, _sccUploadType = Nothing
, _sccPayload = pSccPayload_
, _sccCallback = Nothing
}
sccParent :: Lens' ServicesConnectionsCreate Text
sccParent
= lens _sccParent (\ s a -> s{_sccParent = a})
sccXgafv :: Lens' ServicesConnectionsCreate (Maybe Xgafv)
sccXgafv = lens _sccXgafv (\ s a -> s{_sccXgafv = a})
sccUploadProtocol :: Lens' ServicesConnectionsCreate (Maybe Text)
sccUploadProtocol
= lens _sccUploadProtocol
(\ s a -> s{_sccUploadProtocol = a})
sccAccessToken :: Lens' ServicesConnectionsCreate (Maybe Text)
sccAccessToken
= lens _sccAccessToken
(\ s a -> s{_sccAccessToken = a})
sccUploadType :: Lens' ServicesConnectionsCreate (Maybe Text)
sccUploadType
= lens _sccUploadType
(\ s a -> s{_sccUploadType = a})
sccPayload :: Lens' ServicesConnectionsCreate Connection
sccPayload
= lens _sccPayload (\ s a -> s{_sccPayload = a})
sccCallback :: Lens' ServicesConnectionsCreate (Maybe Text)
sccCallback
= lens _sccCallback (\ s a -> s{_sccCallback = a})
instance GoogleRequest ServicesConnectionsCreate
where
type Rs ServicesConnectionsCreate = Operation
type Scopes ServicesConnectionsCreate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/service.management"]
requestClient ServicesConnectionsCreate'{..}
= go _sccParent _sccXgafv _sccUploadProtocol
_sccAccessToken
_sccUploadType
_sccCallback
(Just AltJSON)
_sccPayload
serviceNetworkingService
where go
= buildClient
(Proxy :: Proxy ServicesConnectionsCreateResource)
mempty