module Network.Google.Resource.Logging.Projects.Sinks.Create
(
ProjectsSinksCreateResource
, projectsSinksCreate
, ProjectsSinksCreate
, pscXgafv
, pscUploadProtocol
, pscPp
, pscAccessToken
, pscUploadType
, pscPayload
, pscBearerToken
, pscProjectName
, pscCallback
) where
import Network.Google.Logging.Types
import Network.Google.Prelude
type ProjectsSinksCreateResource =
"v2beta1" :>
Capture "projectName" Text :>
"sinks" :>
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 :> Post '[JSON] LogSink
data ProjectsSinksCreate = ProjectsSinksCreate'
{ _pscXgafv :: !(Maybe Text)
, _pscUploadProtocol :: !(Maybe Text)
, _pscPp :: !Bool
, _pscAccessToken :: !(Maybe Text)
, _pscUploadType :: !(Maybe Text)
, _pscPayload :: !LogSink
, _pscBearerToken :: !(Maybe Text)
, _pscProjectName :: !Text
, _pscCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsSinksCreate
:: LogSink
-> Text
-> ProjectsSinksCreate
projectsSinksCreate pPscPayload_ pPscProjectName_ =
ProjectsSinksCreate'
{ _pscXgafv = Nothing
, _pscUploadProtocol = Nothing
, _pscPp = True
, _pscAccessToken = Nothing
, _pscUploadType = Nothing
, _pscPayload = pPscPayload_
, _pscBearerToken = Nothing
, _pscProjectName = pPscProjectName_
, _pscCallback = Nothing
}
pscXgafv :: Lens' ProjectsSinksCreate (Maybe Text)
pscXgafv = lens _pscXgafv (\ s a -> s{_pscXgafv = a})
pscUploadProtocol :: Lens' ProjectsSinksCreate (Maybe Text)
pscUploadProtocol
= lens _pscUploadProtocol
(\ s a -> s{_pscUploadProtocol = a})
pscPp :: Lens' ProjectsSinksCreate Bool
pscPp = lens _pscPp (\ s a -> s{_pscPp = a})
pscAccessToken :: Lens' ProjectsSinksCreate (Maybe Text)
pscAccessToken
= lens _pscAccessToken
(\ s a -> s{_pscAccessToken = a})
pscUploadType :: Lens' ProjectsSinksCreate (Maybe Text)
pscUploadType
= lens _pscUploadType
(\ s a -> s{_pscUploadType = a})
pscPayload :: Lens' ProjectsSinksCreate LogSink
pscPayload
= lens _pscPayload (\ s a -> s{_pscPayload = a})
pscBearerToken :: Lens' ProjectsSinksCreate (Maybe Text)
pscBearerToken
= lens _pscBearerToken
(\ s a -> s{_pscBearerToken = a})
pscProjectName :: Lens' ProjectsSinksCreate Text
pscProjectName
= lens _pscProjectName
(\ s a -> s{_pscProjectName = a})
pscCallback :: Lens' ProjectsSinksCreate (Maybe Text)
pscCallback
= lens _pscCallback (\ s a -> s{_pscCallback = a})
instance GoogleRequest ProjectsSinksCreate where
type Rs ProjectsSinksCreate = LogSink
type Scopes ProjectsSinksCreate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/logging.admin"]
requestClient ProjectsSinksCreate'{..}
= go _pscProjectName _pscXgafv _pscUploadProtocol
(Just _pscPp)
_pscAccessToken
_pscUploadType
_pscBearerToken
_pscCallback
(Just AltJSON)
_pscPayload
loggingService
where go
= buildClient
(Proxy :: Proxy ProjectsSinksCreateResource)
mempty