{-# 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.Delete
(
AppsFirewallIngressRulesDeleteResource
, appsFirewallIngressRulesDelete
, AppsFirewallIngressRulesDelete
, afirdXgafv
, afirdUploadProtocol
, afirdAccessToken
, afirdUploadType
, afirdIngressRulesId
, afirdAppsId
, afirdCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsFirewallIngressRulesDeleteResource =
"v1" :>
"apps" :>
Capture "appsId" Text :>
"firewall" :>
"ingressRules" :>
Capture "ingressRulesId" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Empty
data AppsFirewallIngressRulesDelete = AppsFirewallIngressRulesDelete'
{ _afirdXgafv :: !(Maybe Xgafv)
, _afirdUploadProtocol :: !(Maybe Text)
, _afirdAccessToken :: !(Maybe Text)
, _afirdUploadType :: !(Maybe Text)
, _afirdIngressRulesId :: !Text
, _afirdAppsId :: !Text
, _afirdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsFirewallIngressRulesDelete
:: Text
-> Text
-> AppsFirewallIngressRulesDelete
appsFirewallIngressRulesDelete pAfirdIngressRulesId_ pAfirdAppsId_ =
AppsFirewallIngressRulesDelete'
{ _afirdXgafv = Nothing
, _afirdUploadProtocol = Nothing
, _afirdAccessToken = Nothing
, _afirdUploadType = Nothing
, _afirdIngressRulesId = pAfirdIngressRulesId_
, _afirdAppsId = pAfirdAppsId_
, _afirdCallback = Nothing
}
afirdXgafv :: Lens' AppsFirewallIngressRulesDelete (Maybe Xgafv)
afirdXgafv
= lens _afirdXgafv (\ s a -> s{_afirdXgafv = a})
afirdUploadProtocol :: Lens' AppsFirewallIngressRulesDelete (Maybe Text)
afirdUploadProtocol
= lens _afirdUploadProtocol
(\ s a -> s{_afirdUploadProtocol = a})
afirdAccessToken :: Lens' AppsFirewallIngressRulesDelete (Maybe Text)
afirdAccessToken
= lens _afirdAccessToken
(\ s a -> s{_afirdAccessToken = a})
afirdUploadType :: Lens' AppsFirewallIngressRulesDelete (Maybe Text)
afirdUploadType
= lens _afirdUploadType
(\ s a -> s{_afirdUploadType = a})
afirdIngressRulesId :: Lens' AppsFirewallIngressRulesDelete Text
afirdIngressRulesId
= lens _afirdIngressRulesId
(\ s a -> s{_afirdIngressRulesId = a})
afirdAppsId :: Lens' AppsFirewallIngressRulesDelete Text
afirdAppsId
= lens _afirdAppsId (\ s a -> s{_afirdAppsId = a})
afirdCallback :: Lens' AppsFirewallIngressRulesDelete (Maybe Text)
afirdCallback
= lens _afirdCallback
(\ s a -> s{_afirdCallback = a})
instance GoogleRequest AppsFirewallIngressRulesDelete
where
type Rs AppsFirewallIngressRulesDelete = Empty
type Scopes AppsFirewallIngressRulesDelete =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient AppsFirewallIngressRulesDelete'{..}
= go _afirdAppsId _afirdIngressRulesId _afirdXgafv
_afirdUploadProtocol
_afirdAccessToken
_afirdUploadType
_afirdCallback
(Just AltJSON)
appEngineService
where go
= buildClient
(Proxy ::
Proxy AppsFirewallIngressRulesDeleteResource)
mempty