{-# 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.Patch
(
ServicesConnectionsPatchResource
, servicesConnectionsPatch
, ServicesConnectionsPatch
, scpXgafv
, scpUploadProtocol
, scpForce
, scpUpdateMask
, scpAccessToken
, scpUploadType
, scpPayload
, scpName
, scpCallback
) where
import Network.Google.Prelude
import Network.Google.ServiceNetworking.Types
type ServicesConnectionsPatchResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "force" Bool :>
QueryParam "updateMask" GFieldMask :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Connection :> Patch '[JSON] Operation
data ServicesConnectionsPatch =
ServicesConnectionsPatch'
{ _scpXgafv :: !(Maybe Xgafv)
, _scpUploadProtocol :: !(Maybe Text)
, _scpForce :: !(Maybe Bool)
, _scpUpdateMask :: !(Maybe GFieldMask)
, _scpAccessToken :: !(Maybe Text)
, _scpUploadType :: !(Maybe Text)
, _scpPayload :: !Connection
, _scpName :: !Text
, _scpCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
servicesConnectionsPatch
:: Connection
-> Text
-> ServicesConnectionsPatch
servicesConnectionsPatch pScpPayload_ pScpName_ =
ServicesConnectionsPatch'
{ _scpXgafv = Nothing
, _scpUploadProtocol = Nothing
, _scpForce = Nothing
, _scpUpdateMask = Nothing
, _scpAccessToken = Nothing
, _scpUploadType = Nothing
, _scpPayload = pScpPayload_
, _scpName = pScpName_
, _scpCallback = Nothing
}
scpXgafv :: Lens' ServicesConnectionsPatch (Maybe Xgafv)
scpXgafv = lens _scpXgafv (\ s a -> s{_scpXgafv = a})
scpUploadProtocol :: Lens' ServicesConnectionsPatch (Maybe Text)
scpUploadProtocol
= lens _scpUploadProtocol
(\ s a -> s{_scpUploadProtocol = a})
scpForce :: Lens' ServicesConnectionsPatch (Maybe Bool)
scpForce = lens _scpForce (\ s a -> s{_scpForce = a})
scpUpdateMask :: Lens' ServicesConnectionsPatch (Maybe GFieldMask)
scpUpdateMask
= lens _scpUpdateMask
(\ s a -> s{_scpUpdateMask = a})
scpAccessToken :: Lens' ServicesConnectionsPatch (Maybe Text)
scpAccessToken
= lens _scpAccessToken
(\ s a -> s{_scpAccessToken = a})
scpUploadType :: Lens' ServicesConnectionsPatch (Maybe Text)
scpUploadType
= lens _scpUploadType
(\ s a -> s{_scpUploadType = a})
scpPayload :: Lens' ServicesConnectionsPatch Connection
scpPayload
= lens _scpPayload (\ s a -> s{_scpPayload = a})
scpName :: Lens' ServicesConnectionsPatch Text
scpName = lens _scpName (\ s a -> s{_scpName = a})
scpCallback :: Lens' ServicesConnectionsPatch (Maybe Text)
scpCallback
= lens _scpCallback (\ s a -> s{_scpCallback = a})
instance GoogleRequest ServicesConnectionsPatch where
type Rs ServicesConnectionsPatch = Operation
type Scopes ServicesConnectionsPatch =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/service.management"]
requestClient ServicesConnectionsPatch'{..}
= go _scpName _scpXgafv _scpUploadProtocol _scpForce
_scpUpdateMask
_scpAccessToken
_scpUploadType
_scpCallback
(Just AltJSON)
_scpPayload
serviceNetworkingService
where go
= buildClient
(Proxy :: Proxy ServicesConnectionsPatchResource)
mempty