module Network.Google.Resource.PubSub.Projects.Subscriptions.ModifyPushConfig
(
ProjectsSubscriptionsModifyPushConfigResource
, projectsSubscriptionsModifyPushConfig
, ProjectsSubscriptionsModifyPushConfig
, psmpcXgafv
, psmpcUploadProtocol
, psmpcPp
, psmpcAccessToken
, psmpcUploadType
, psmpcPayload
, psmpcBearerToken
, psmpcSubscription
, psmpcCallback
) where
import Network.Google.Prelude
import Network.Google.PubSub.Types
type ProjectsSubscriptionsModifyPushConfigResource =
"v1" :>
CaptureMode "subscription" "modifyPushConfig" 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] ModifyPushConfigRequest :>
Post '[JSON] Empty
data ProjectsSubscriptionsModifyPushConfig = ProjectsSubscriptionsModifyPushConfig'
{ _psmpcXgafv :: !(Maybe Xgafv)
, _psmpcUploadProtocol :: !(Maybe Text)
, _psmpcPp :: !Bool
, _psmpcAccessToken :: !(Maybe Text)
, _psmpcUploadType :: !(Maybe Text)
, _psmpcPayload :: !ModifyPushConfigRequest
, _psmpcBearerToken :: !(Maybe Text)
, _psmpcSubscription :: !Text
, _psmpcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsSubscriptionsModifyPushConfig
:: ModifyPushConfigRequest
-> Text
-> ProjectsSubscriptionsModifyPushConfig
projectsSubscriptionsModifyPushConfig pPsmpcPayload_ pPsmpcSubscription_ =
ProjectsSubscriptionsModifyPushConfig'
{ _psmpcXgafv = Nothing
, _psmpcUploadProtocol = Nothing
, _psmpcPp = True
, _psmpcAccessToken = Nothing
, _psmpcUploadType = Nothing
, _psmpcPayload = pPsmpcPayload_
, _psmpcBearerToken = Nothing
, _psmpcSubscription = pPsmpcSubscription_
, _psmpcCallback = Nothing
}
psmpcXgafv :: Lens' ProjectsSubscriptionsModifyPushConfig (Maybe Xgafv)
psmpcXgafv
= lens _psmpcXgafv (\ s a -> s{_psmpcXgafv = a})
psmpcUploadProtocol :: Lens' ProjectsSubscriptionsModifyPushConfig (Maybe Text)
psmpcUploadProtocol
= lens _psmpcUploadProtocol
(\ s a -> s{_psmpcUploadProtocol = a})
psmpcPp :: Lens' ProjectsSubscriptionsModifyPushConfig Bool
psmpcPp = lens _psmpcPp (\ s a -> s{_psmpcPp = a})
psmpcAccessToken :: Lens' ProjectsSubscriptionsModifyPushConfig (Maybe Text)
psmpcAccessToken
= lens _psmpcAccessToken
(\ s a -> s{_psmpcAccessToken = a})
psmpcUploadType :: Lens' ProjectsSubscriptionsModifyPushConfig (Maybe Text)
psmpcUploadType
= lens _psmpcUploadType
(\ s a -> s{_psmpcUploadType = a})
psmpcPayload :: Lens' ProjectsSubscriptionsModifyPushConfig ModifyPushConfigRequest
psmpcPayload
= lens _psmpcPayload (\ s a -> s{_psmpcPayload = a})
psmpcBearerToken :: Lens' ProjectsSubscriptionsModifyPushConfig (Maybe Text)
psmpcBearerToken
= lens _psmpcBearerToken
(\ s a -> s{_psmpcBearerToken = a})
psmpcSubscription :: Lens' ProjectsSubscriptionsModifyPushConfig Text
psmpcSubscription
= lens _psmpcSubscription
(\ s a -> s{_psmpcSubscription = a})
psmpcCallback :: Lens' ProjectsSubscriptionsModifyPushConfig (Maybe Text)
psmpcCallback
= lens _psmpcCallback
(\ s a -> s{_psmpcCallback = a})
instance GoogleRequest
ProjectsSubscriptionsModifyPushConfig where
type Rs ProjectsSubscriptionsModifyPushConfig = Empty
type Scopes ProjectsSubscriptionsModifyPushConfig =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/pubsub"]
requestClient
ProjectsSubscriptionsModifyPushConfig'{..}
= go _psmpcSubscription _psmpcXgafv
_psmpcUploadProtocol
(Just _psmpcPp)
_psmpcAccessToken
_psmpcUploadType
_psmpcBearerToken
_psmpcCallback
(Just AltJSON)
_psmpcPayload
pubSubService
where go
= buildClient
(Proxy ::
Proxy ProjectsSubscriptionsModifyPushConfigResource)
mempty