module Network.Google.Resource.Logging.Projects.Sinks.Update
(
ProjectsSinksUpdateResource
, projectsSinksUpdate
, ProjectsSinksUpdate
, psuXgafv
, psuUploadProtocol
, psuPp
, psuAccessToken
, psuUploadType
, psuPayload
, psuBearerToken
, psuSinkName
, psuCallback
) where
import Network.Google.Logging.Types
import Network.Google.Prelude
type ProjectsSinksUpdateResource =
"v2beta1" :>
Capture "sinkName" Text :>
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] LogSink :> Put '[JSON] LogSink
data ProjectsSinksUpdate = ProjectsSinksUpdate'
{ _psuXgafv :: !(Maybe Text)
, _psuUploadProtocol :: !(Maybe Text)
, _psuPp :: !Bool
, _psuAccessToken :: !(Maybe Text)
, _psuUploadType :: !(Maybe Text)
, _psuPayload :: !LogSink
, _psuBearerToken :: !(Maybe Text)
, _psuSinkName :: !Text
, _psuCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsSinksUpdate
:: LogSink
-> Text
-> ProjectsSinksUpdate
projectsSinksUpdate pPsuPayload_ pPsuSinkName_ =
ProjectsSinksUpdate'
{ _psuXgafv = Nothing
, _psuUploadProtocol = Nothing
, _psuPp = True
, _psuAccessToken = Nothing
, _psuUploadType = Nothing
, _psuPayload = pPsuPayload_
, _psuBearerToken = Nothing
, _psuSinkName = pPsuSinkName_
, _psuCallback = Nothing
}
psuXgafv :: Lens' ProjectsSinksUpdate (Maybe Text)
psuXgafv = lens _psuXgafv (\ s a -> s{_psuXgafv = a})
psuUploadProtocol :: Lens' ProjectsSinksUpdate (Maybe Text)
psuUploadProtocol
= lens _psuUploadProtocol
(\ s a -> s{_psuUploadProtocol = a})
psuPp :: Lens' ProjectsSinksUpdate Bool
psuPp = lens _psuPp (\ s a -> s{_psuPp = a})
psuAccessToken :: Lens' ProjectsSinksUpdate (Maybe Text)
psuAccessToken
= lens _psuAccessToken
(\ s a -> s{_psuAccessToken = a})
psuUploadType :: Lens' ProjectsSinksUpdate (Maybe Text)
psuUploadType
= lens _psuUploadType
(\ s a -> s{_psuUploadType = a})
psuPayload :: Lens' ProjectsSinksUpdate LogSink
psuPayload
= lens _psuPayload (\ s a -> s{_psuPayload = a})
psuBearerToken :: Lens' ProjectsSinksUpdate (Maybe Text)
psuBearerToken
= lens _psuBearerToken
(\ s a -> s{_psuBearerToken = a})
psuSinkName :: Lens' ProjectsSinksUpdate Text
psuSinkName
= lens _psuSinkName (\ s a -> s{_psuSinkName = a})
psuCallback :: Lens' ProjectsSinksUpdate (Maybe Text)
psuCallback
= lens _psuCallback (\ s a -> s{_psuCallback = a})
instance GoogleRequest ProjectsSinksUpdate where
type Rs ProjectsSinksUpdate = LogSink
type Scopes ProjectsSinksUpdate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/logging.admin"]
requestClient ProjectsSinksUpdate'{..}
= go _psuSinkName _psuXgafv _psuUploadProtocol
(Just _psuPp)
_psuAccessToken
_psuUploadType
_psuBearerToken
_psuCallback
(Just AltJSON)
_psuPayload
loggingService
where go
= buildClient
(Proxy :: Proxy ProjectsSinksUpdateResource)
mempty