module Network.Google.Resource.PubSub.Projects.Topics.Create
(
ProjectsTopicsCreateResource
, projectsTopicsCreate
, ProjectsTopicsCreate
, ptcXgafv
, ptcUploadProtocol
, ptcPp
, ptcAccessToken
, ptcUploadType
, ptcPayload
, ptcBearerToken
, ptcName
, ptcCallback
) where
import Network.Google.Prelude
import Network.Google.PubSub.Types
type ProjectsTopicsCreateResource =
"v1" :>
Capture "name" 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] Topic :> Put '[JSON] Topic
data ProjectsTopicsCreate = ProjectsTopicsCreate'
{ _ptcXgafv :: !(Maybe Xgafv)
, _ptcUploadProtocol :: !(Maybe Text)
, _ptcPp :: !Bool
, _ptcAccessToken :: !(Maybe Text)
, _ptcUploadType :: !(Maybe Text)
, _ptcPayload :: !Topic
, _ptcBearerToken :: !(Maybe Text)
, _ptcName :: !Text
, _ptcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsTopicsCreate
:: Topic
-> Text
-> ProjectsTopicsCreate
projectsTopicsCreate pPtcPayload_ pPtcName_ =
ProjectsTopicsCreate'
{ _ptcXgafv = Nothing
, _ptcUploadProtocol = Nothing
, _ptcPp = True
, _ptcAccessToken = Nothing
, _ptcUploadType = Nothing
, _ptcPayload = pPtcPayload_
, _ptcBearerToken = Nothing
, _ptcName = pPtcName_
, _ptcCallback = Nothing
}
ptcXgafv :: Lens' ProjectsTopicsCreate (Maybe Xgafv)
ptcXgafv = lens _ptcXgafv (\ s a -> s{_ptcXgafv = a})
ptcUploadProtocol :: Lens' ProjectsTopicsCreate (Maybe Text)
ptcUploadProtocol
= lens _ptcUploadProtocol
(\ s a -> s{_ptcUploadProtocol = a})
ptcPp :: Lens' ProjectsTopicsCreate Bool
ptcPp = lens _ptcPp (\ s a -> s{_ptcPp = a})
ptcAccessToken :: Lens' ProjectsTopicsCreate (Maybe Text)
ptcAccessToken
= lens _ptcAccessToken
(\ s a -> s{_ptcAccessToken = a})
ptcUploadType :: Lens' ProjectsTopicsCreate (Maybe Text)
ptcUploadType
= lens _ptcUploadType
(\ s a -> s{_ptcUploadType = a})
ptcPayload :: Lens' ProjectsTopicsCreate Topic
ptcPayload
= lens _ptcPayload (\ s a -> s{_ptcPayload = a})
ptcBearerToken :: Lens' ProjectsTopicsCreate (Maybe Text)
ptcBearerToken
= lens _ptcBearerToken
(\ s a -> s{_ptcBearerToken = a})
ptcName :: Lens' ProjectsTopicsCreate Text
ptcName = lens _ptcName (\ s a -> s{_ptcName = a})
ptcCallback :: Lens' ProjectsTopicsCreate (Maybe Text)
ptcCallback
= lens _ptcCallback (\ s a -> s{_ptcCallback = a})
instance GoogleRequest ProjectsTopicsCreate where
type Rs ProjectsTopicsCreate = Topic
type Scopes ProjectsTopicsCreate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/pubsub"]
requestClient ProjectsTopicsCreate'{..}
= go _ptcName _ptcXgafv _ptcUploadProtocol
(Just _ptcPp)
_ptcAccessToken
_ptcUploadType
_ptcBearerToken
_ptcCallback
(Just AltJSON)
_ptcPayload
pubSubService
where go
= buildClient
(Proxy :: Proxy ProjectsTopicsCreateResource)
mempty