module Network.Google.Resource.PubSub.Projects.Subscriptions.Pull
(
ProjectsSubscriptionsPullResource
, projectsSubscriptionsPull
, ProjectsSubscriptionsPull
, pspXgafv
, pspUploadProtocol
, pspPp
, pspAccessToken
, pspUploadType
, pspPayload
, pspBearerToken
, pspSubscription
, pspCallback
) where
import Network.Google.Prelude
import Network.Google.PubSub.Types
type ProjectsSubscriptionsPullResource =
"v1" :>
CaptureMode "subscription" "pull" 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] PullRequest :>
Post '[JSON] PullResponse
data ProjectsSubscriptionsPull = ProjectsSubscriptionsPull'
{ _pspXgafv :: !(Maybe Xgafv)
, _pspUploadProtocol :: !(Maybe Text)
, _pspPp :: !Bool
, _pspAccessToken :: !(Maybe Text)
, _pspUploadType :: !(Maybe Text)
, _pspPayload :: !PullRequest
, _pspBearerToken :: !(Maybe Text)
, _pspSubscription :: !Text
, _pspCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsSubscriptionsPull
:: PullRequest
-> Text
-> ProjectsSubscriptionsPull
projectsSubscriptionsPull pPspPayload_ pPspSubscription_ =
ProjectsSubscriptionsPull'
{ _pspXgafv = Nothing
, _pspUploadProtocol = Nothing
, _pspPp = True
, _pspAccessToken = Nothing
, _pspUploadType = Nothing
, _pspPayload = pPspPayload_
, _pspBearerToken = Nothing
, _pspSubscription = pPspSubscription_
, _pspCallback = Nothing
}
pspXgafv :: Lens' ProjectsSubscriptionsPull (Maybe Xgafv)
pspXgafv = lens _pspXgafv (\ s a -> s{_pspXgafv = a})
pspUploadProtocol :: Lens' ProjectsSubscriptionsPull (Maybe Text)
pspUploadProtocol
= lens _pspUploadProtocol
(\ s a -> s{_pspUploadProtocol = a})
pspPp :: Lens' ProjectsSubscriptionsPull Bool
pspPp = lens _pspPp (\ s a -> s{_pspPp = a})
pspAccessToken :: Lens' ProjectsSubscriptionsPull (Maybe Text)
pspAccessToken
= lens _pspAccessToken
(\ s a -> s{_pspAccessToken = a})
pspUploadType :: Lens' ProjectsSubscriptionsPull (Maybe Text)
pspUploadType
= lens _pspUploadType
(\ s a -> s{_pspUploadType = a})
pspPayload :: Lens' ProjectsSubscriptionsPull PullRequest
pspPayload
= lens _pspPayload (\ s a -> s{_pspPayload = a})
pspBearerToken :: Lens' ProjectsSubscriptionsPull (Maybe Text)
pspBearerToken
= lens _pspBearerToken
(\ s a -> s{_pspBearerToken = a})
pspSubscription :: Lens' ProjectsSubscriptionsPull Text
pspSubscription
= lens _pspSubscription
(\ s a -> s{_pspSubscription = a})
pspCallback :: Lens' ProjectsSubscriptionsPull (Maybe Text)
pspCallback
= lens _pspCallback (\ s a -> s{_pspCallback = a})
instance GoogleRequest ProjectsSubscriptionsPull
where
type Rs ProjectsSubscriptionsPull = PullResponse
type Scopes ProjectsSubscriptionsPull =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/pubsub"]
requestClient ProjectsSubscriptionsPull'{..}
= go _pspSubscription _pspXgafv _pspUploadProtocol
(Just _pspPp)
_pspAccessToken
_pspUploadType
_pspBearerToken
_pspCallback
(Just AltJSON)
_pspPayload
pubSubService
where go
= buildClient
(Proxy :: Proxy ProjectsSubscriptionsPullResource)
mempty