module Network.Google.Resource.Compute.GlobalForwardingRules.Delete
(
GlobalForwardingRulesDeleteResource
, globalForwardingRulesDelete
, GlobalForwardingRulesDelete
, gfrdProject
, gfrdForwardingRule
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type GlobalForwardingRulesDeleteResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"global" :>
"forwardingRules" :>
Capture "forwardingRule" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Operation
data GlobalForwardingRulesDelete = GlobalForwardingRulesDelete'
{ _gfrdProject :: !Text
, _gfrdForwardingRule :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
globalForwardingRulesDelete
:: Text
-> Text
-> GlobalForwardingRulesDelete
globalForwardingRulesDelete pGfrdProject_ pGfrdForwardingRule_ =
GlobalForwardingRulesDelete'
{ _gfrdProject = pGfrdProject_
, _gfrdForwardingRule = pGfrdForwardingRule_
}
gfrdProject :: Lens' GlobalForwardingRulesDelete Text
gfrdProject
= lens _gfrdProject (\ s a -> s{_gfrdProject = a})
gfrdForwardingRule :: Lens' GlobalForwardingRulesDelete Text
gfrdForwardingRule
= lens _gfrdForwardingRule
(\ s a -> s{_gfrdForwardingRule = a})
instance GoogleRequest GlobalForwardingRulesDelete
where
type Rs GlobalForwardingRulesDelete = Operation
type Scopes GlobalForwardingRulesDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient GlobalForwardingRulesDelete'{..}
= go _gfrdProject _gfrdForwardingRule (Just AltJSON)
computeService
where go
= buildClient
(Proxy :: Proxy GlobalForwardingRulesDeleteResource)
mempty