module Network.Google.Resource.Logging.Entries.Write
(
EntriesWriteResource
, entriesWrite
, EntriesWrite
, ewXgafv
, ewUploadProtocol
, ewPp
, ewAccessToken
, ewUploadType
, ewPayload
, ewBearerToken
, ewCallback
) where
import Network.Google.Logging.Types
import Network.Google.Prelude
type EntriesWriteResource =
"v2beta1" :>
"entries:write" :>
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] WriteLogEntriesRequest :>
Post '[JSON] WriteLogEntriesResponse
data EntriesWrite = EntriesWrite'
{ _ewXgafv :: !(Maybe Text)
, _ewUploadProtocol :: !(Maybe Text)
, _ewPp :: !Bool
, _ewAccessToken :: !(Maybe Text)
, _ewUploadType :: !(Maybe Text)
, _ewPayload :: !WriteLogEntriesRequest
, _ewBearerToken :: !(Maybe Text)
, _ewCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
entriesWrite
:: WriteLogEntriesRequest
-> EntriesWrite
entriesWrite pEwPayload_ =
EntriesWrite'
{ _ewXgafv = Nothing
, _ewUploadProtocol = Nothing
, _ewPp = True
, _ewAccessToken = Nothing
, _ewUploadType = Nothing
, _ewPayload = pEwPayload_
, _ewBearerToken = Nothing
, _ewCallback = Nothing
}
ewXgafv :: Lens' EntriesWrite (Maybe Text)
ewXgafv = lens _ewXgafv (\ s a -> s{_ewXgafv = a})
ewUploadProtocol :: Lens' EntriesWrite (Maybe Text)
ewUploadProtocol
= lens _ewUploadProtocol
(\ s a -> s{_ewUploadProtocol = a})
ewPp :: Lens' EntriesWrite Bool
ewPp = lens _ewPp (\ s a -> s{_ewPp = a})
ewAccessToken :: Lens' EntriesWrite (Maybe Text)
ewAccessToken
= lens _ewAccessToken
(\ s a -> s{_ewAccessToken = a})
ewUploadType :: Lens' EntriesWrite (Maybe Text)
ewUploadType
= lens _ewUploadType (\ s a -> s{_ewUploadType = a})
ewPayload :: Lens' EntriesWrite WriteLogEntriesRequest
ewPayload
= lens _ewPayload (\ s a -> s{_ewPayload = a})
ewBearerToken :: Lens' EntriesWrite (Maybe Text)
ewBearerToken
= lens _ewBearerToken
(\ s a -> s{_ewBearerToken = a})
ewCallback :: Lens' EntriesWrite (Maybe Text)
ewCallback
= lens _ewCallback (\ s a -> s{_ewCallback = a})
instance GoogleRequest EntriesWrite where
type Rs EntriesWrite = WriteLogEntriesResponse
type Scopes EntriesWrite =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/logging.admin",
"https://www.googleapis.com/auth/logging.write"]
requestClient EntriesWrite'{..}
= go _ewXgafv _ewUploadProtocol (Just _ewPp)
_ewAccessToken
_ewUploadType
_ewBearerToken
_ewCallback
(Just AltJSON)
_ewPayload
loggingService
where go
= buildClient (Proxy :: Proxy EntriesWriteResource)
mempty