module Network.Google.Resource.PubSub.Projects.Subscriptions.Create
(
ProjectsSubscriptionsCreateResource
, projectsSubscriptionsCreate
, ProjectsSubscriptionsCreate
, pscXgafv
, pscUploadProtocol
, pscPp
, pscAccessToken
, pscUploadType
, pscPayload
, pscBearerToken
, pscName
, pscCallback
) where
import Network.Google.Prelude
import Network.Google.PubSub.Types
type ProjectsSubscriptionsCreateResource =
"v1" :>
Capture "name" 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] Subscription :>
Put '[JSON] Subscription
data ProjectsSubscriptionsCreate = ProjectsSubscriptionsCreate'
{ _pscXgafv :: !(Maybe Text)
, _pscUploadProtocol :: !(Maybe Text)
, _pscPp :: !Bool
, _pscAccessToken :: !(Maybe Text)
, _pscUploadType :: !(Maybe Text)
, _pscPayload :: !Subscription
, _pscBearerToken :: !(Maybe Text)
, _pscName :: !Text
, _pscCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsSubscriptionsCreate
:: Subscription
-> Text
-> ProjectsSubscriptionsCreate
projectsSubscriptionsCreate pPscPayload_ pPscName_ =
ProjectsSubscriptionsCreate'
{ _pscXgafv = Nothing
, _pscUploadProtocol = Nothing
, _pscPp = True
, _pscAccessToken = Nothing
, _pscUploadType = Nothing
, _pscPayload = pPscPayload_
, _pscBearerToken = Nothing
, _pscName = pPscName_
, _pscCallback = Nothing
}
pscXgafv :: Lens' ProjectsSubscriptionsCreate (Maybe Text)
pscXgafv = lens _pscXgafv (\ s a -> s{_pscXgafv = a})
pscUploadProtocol :: Lens' ProjectsSubscriptionsCreate (Maybe Text)
pscUploadProtocol
= lens _pscUploadProtocol
(\ s a -> s{_pscUploadProtocol = a})
pscPp :: Lens' ProjectsSubscriptionsCreate Bool
pscPp = lens _pscPp (\ s a -> s{_pscPp = a})
pscAccessToken :: Lens' ProjectsSubscriptionsCreate (Maybe Text)
pscAccessToken
= lens _pscAccessToken
(\ s a -> s{_pscAccessToken = a})
pscUploadType :: Lens' ProjectsSubscriptionsCreate (Maybe Text)
pscUploadType
= lens _pscUploadType
(\ s a -> s{_pscUploadType = a})
pscPayload :: Lens' ProjectsSubscriptionsCreate Subscription
pscPayload
= lens _pscPayload (\ s a -> s{_pscPayload = a})
pscBearerToken :: Lens' ProjectsSubscriptionsCreate (Maybe Text)
pscBearerToken
= lens _pscBearerToken
(\ s a -> s{_pscBearerToken = a})
pscName :: Lens' ProjectsSubscriptionsCreate Text
pscName = lens _pscName (\ s a -> s{_pscName = a})
pscCallback :: Lens' ProjectsSubscriptionsCreate (Maybe Text)
pscCallback
= lens _pscCallback (\ s a -> s{_pscCallback = a})
instance GoogleRequest ProjectsSubscriptionsCreate
where
type Rs ProjectsSubscriptionsCreate = Subscription
type Scopes ProjectsSubscriptionsCreate =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/pubsub"]
requestClient ProjectsSubscriptionsCreate'{..}
= go _pscName _pscXgafv _pscUploadProtocol
(Just _pscPp)
_pscAccessToken
_pscUploadType
_pscBearerToken
_pscCallback
(Just AltJSON)
_pscPayload
pubSubService
where go
= buildClient
(Proxy :: Proxy ProjectsSubscriptionsCreateResource)
mempty