module Network.Google.Resource.Compute.ForwardingRules.Delete
(
ForwardingRulesDeleteResource
, forwardingRulesDelete
, ForwardingRulesDelete
, frdProject
, frdForwardingRule
, frdRegion
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type ForwardingRulesDeleteResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"regions" :>
Capture "region" Text :>
"forwardingRules" :>
Capture "forwardingRule" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Operation
data ForwardingRulesDelete = ForwardingRulesDelete'
{ _frdProject :: !Text
, _frdForwardingRule :: !Text
, _frdRegion :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
forwardingRulesDelete
:: Text
-> Text
-> Text
-> ForwardingRulesDelete
forwardingRulesDelete pFrdProject_ pFrdForwardingRule_ pFrdRegion_ =
ForwardingRulesDelete'
{ _frdProject = pFrdProject_
, _frdForwardingRule = pFrdForwardingRule_
, _frdRegion = pFrdRegion_
}
frdProject :: Lens' ForwardingRulesDelete Text
frdProject
= lens _frdProject (\ s a -> s{_frdProject = a})
frdForwardingRule :: Lens' ForwardingRulesDelete Text
frdForwardingRule
= lens _frdForwardingRule
(\ s a -> s{_frdForwardingRule = a})
frdRegion :: Lens' ForwardingRulesDelete Text
frdRegion
= lens _frdRegion (\ s a -> s{_frdRegion = a})
instance GoogleRequest ForwardingRulesDelete where
type Rs ForwardingRulesDelete = Operation
type Scopes ForwardingRulesDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient ForwardingRulesDelete'{..}
= go _frdProject _frdRegion _frdForwardingRule
(Just AltJSON)
computeService
where go
= buildClient
(Proxy :: Proxy ForwardingRulesDeleteResource)
mempty