{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.AppEngine.Apps.Firewall.IngressRules.BatchUpdate
(
AppsFirewallIngressRulesBatchUpdateResource
, appsFirewallIngressRulesBatchUpdate
, AppsFirewallIngressRulesBatchUpdate
, afirbuXgafv
, afirbuUploadProtocol
, afirbuAccessToken
, afirbuUploadType
, afirbuPayload
, afirbuAppsId
, afirbuCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsFirewallIngressRulesBatchUpdateResource =
"v1" :>
"apps" :>
Capture "appsId" Text :>
"firewall" :>
"ingressRules:batchUpdate" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] BatchUpdateIngressRulesRequest :>
Post '[JSON] BatchUpdateIngressRulesResponse
data AppsFirewallIngressRulesBatchUpdate = AppsFirewallIngressRulesBatchUpdate'
{ _afirbuXgafv :: !(Maybe Xgafv)
, _afirbuUploadProtocol :: !(Maybe Text)
, _afirbuAccessToken :: !(Maybe Text)
, _afirbuUploadType :: !(Maybe Text)
, _afirbuPayload :: !BatchUpdateIngressRulesRequest
, _afirbuAppsId :: !Text
, _afirbuCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsFirewallIngressRulesBatchUpdate
:: BatchUpdateIngressRulesRequest
-> Text
-> AppsFirewallIngressRulesBatchUpdate
appsFirewallIngressRulesBatchUpdate pAfirbuPayload_ pAfirbuAppsId_ =
AppsFirewallIngressRulesBatchUpdate'
{ _afirbuXgafv = Nothing
, _afirbuUploadProtocol = Nothing
, _afirbuAccessToken = Nothing
, _afirbuUploadType = Nothing
, _afirbuPayload = pAfirbuPayload_
, _afirbuAppsId = pAfirbuAppsId_
, _afirbuCallback = Nothing
}
afirbuXgafv :: Lens' AppsFirewallIngressRulesBatchUpdate (Maybe Xgafv)
afirbuXgafv
= lens _afirbuXgafv (\ s a -> s{_afirbuXgafv = a})
afirbuUploadProtocol :: Lens' AppsFirewallIngressRulesBatchUpdate (Maybe Text)
afirbuUploadProtocol
= lens _afirbuUploadProtocol
(\ s a -> s{_afirbuUploadProtocol = a})
afirbuAccessToken :: Lens' AppsFirewallIngressRulesBatchUpdate (Maybe Text)
afirbuAccessToken
= lens _afirbuAccessToken
(\ s a -> s{_afirbuAccessToken = a})
afirbuUploadType :: Lens' AppsFirewallIngressRulesBatchUpdate (Maybe Text)
afirbuUploadType
= lens _afirbuUploadType
(\ s a -> s{_afirbuUploadType = a})
afirbuPayload :: Lens' AppsFirewallIngressRulesBatchUpdate BatchUpdateIngressRulesRequest
afirbuPayload
= lens _afirbuPayload
(\ s a -> s{_afirbuPayload = a})
afirbuAppsId :: Lens' AppsFirewallIngressRulesBatchUpdate Text
afirbuAppsId
= lens _afirbuAppsId (\ s a -> s{_afirbuAppsId = a})
afirbuCallback :: Lens' AppsFirewallIngressRulesBatchUpdate (Maybe Text)
afirbuCallback
= lens _afirbuCallback
(\ s a -> s{_afirbuCallback = a})
instance GoogleRequest
AppsFirewallIngressRulesBatchUpdate where
type Rs AppsFirewallIngressRulesBatchUpdate =
BatchUpdateIngressRulesResponse
type Scopes AppsFirewallIngressRulesBatchUpdate =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
AppsFirewallIngressRulesBatchUpdate'{..}
= go _afirbuAppsId _afirbuXgafv _afirbuUploadProtocol
_afirbuAccessToken
_afirbuUploadType
_afirbuCallback
(Just AltJSON)
_afirbuPayload
appEngineService
where go
= buildClient
(Proxy ::
Proxy AppsFirewallIngressRulesBatchUpdateResource)
mempty