module Network.Google.Resource.PubSub.Projects.Topics.Publish
(
ProjectsTopicsPublishResource
, projectsTopicsPublish
, ProjectsTopicsPublish
, ptpXgafv
, ptpUploadProtocol
, ptpPp
, ptpAccessToken
, ptpUploadType
, ptpPayload
, ptpTopic
, ptpBearerToken
, ptpCallback
) where
import Network.Google.Prelude
import Network.Google.PubSub.Types
type ProjectsTopicsPublishResource =
"v1" :>
CaptureMode "topic" "publish" Text :>
QueryParam "$.xgafv" Xgafv :>
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] PublishRequest :>
Post '[JSON] PublishResponse
data ProjectsTopicsPublish = ProjectsTopicsPublish'
{ _ptpXgafv :: !(Maybe Xgafv)
, _ptpUploadProtocol :: !(Maybe Text)
, _ptpPp :: !Bool
, _ptpAccessToken :: !(Maybe Text)
, _ptpUploadType :: !(Maybe Text)
, _ptpPayload :: !PublishRequest
, _ptpTopic :: !Text
, _ptpBearerToken :: !(Maybe Text)
, _ptpCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsTopicsPublish
:: PublishRequest
-> Text
-> ProjectsTopicsPublish
projectsTopicsPublish pPtpPayload_ pPtpTopic_ =
ProjectsTopicsPublish'
{ _ptpXgafv = Nothing
, _ptpUploadProtocol = Nothing
, _ptpPp = True
, _ptpAccessToken = Nothing
, _ptpUploadType = Nothing
, _ptpPayload = pPtpPayload_
, _ptpTopic = pPtpTopic_
, _ptpBearerToken = Nothing
, _ptpCallback = Nothing
}
ptpXgafv :: Lens' ProjectsTopicsPublish (Maybe Xgafv)
ptpXgafv = lens _ptpXgafv (\ s a -> s{_ptpXgafv = a})
ptpUploadProtocol :: Lens' ProjectsTopicsPublish (Maybe Text)
ptpUploadProtocol
= lens _ptpUploadProtocol
(\ s a -> s{_ptpUploadProtocol = a})
ptpPp :: Lens' ProjectsTopicsPublish Bool
ptpPp = lens _ptpPp (\ s a -> s{_ptpPp = a})
ptpAccessToken :: Lens' ProjectsTopicsPublish (Maybe Text)
ptpAccessToken
= lens _ptpAccessToken
(\ s a -> s{_ptpAccessToken = a})
ptpUploadType :: Lens' ProjectsTopicsPublish (Maybe Text)
ptpUploadType
= lens _ptpUploadType
(\ s a -> s{_ptpUploadType = a})
ptpPayload :: Lens' ProjectsTopicsPublish PublishRequest
ptpPayload
= lens _ptpPayload (\ s a -> s{_ptpPayload = a})
ptpTopic :: Lens' ProjectsTopicsPublish Text
ptpTopic = lens _ptpTopic (\ s a -> s{_ptpTopic = a})
ptpBearerToken :: Lens' ProjectsTopicsPublish (Maybe Text)
ptpBearerToken
= lens _ptpBearerToken
(\ s a -> s{_ptpBearerToken = a})
ptpCallback :: Lens' ProjectsTopicsPublish (Maybe Text)
ptpCallback
= lens _ptpCallback (\ s a -> s{_ptpCallback = a})
instance GoogleRequest ProjectsTopicsPublish where
type Rs ProjectsTopicsPublish = PublishResponse
type Scopes ProjectsTopicsPublish =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/pubsub"]
requestClient ProjectsTopicsPublish'{..}
= go _ptpTopic _ptpXgafv _ptpUploadProtocol
(Just _ptpPp)
_ptpAccessToken
_ptpUploadType
_ptpBearerToken
_ptpCallback
(Just AltJSON)
_ptpPayload
pubSubService
where go
= buildClient
(Proxy :: Proxy ProjectsTopicsPublishResource)
mempty