{-# 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.DNS.ManagedZones.Delete
(
ManagedZonesDeleteResource
, managedZonesDelete
, ManagedZonesDelete
, mzdProject
, mzdManagedZone
, mzdClientOperationId
) where
import Network.Google.DNS.Types
import Network.Google.Prelude
type ManagedZonesDeleteResource =
"dns" :>
"v2beta1" :>
"projects" :>
Capture "project" Text :>
"managedZones" :>
Capture "managedZone" Text :>
QueryParam "clientOperationId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data ManagedZonesDelete = ManagedZonesDelete'
{ _mzdProject :: !Text
, _mzdManagedZone :: !Text
, _mzdClientOperationId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
managedZonesDelete
:: Text
-> Text
-> ManagedZonesDelete
managedZonesDelete pMzdProject_ pMzdManagedZone_ =
ManagedZonesDelete'
{ _mzdProject = pMzdProject_
, _mzdManagedZone = pMzdManagedZone_
, _mzdClientOperationId = Nothing
}
mzdProject :: Lens' ManagedZonesDelete Text
mzdProject
= lens _mzdProject (\ s a -> s{_mzdProject = a})
mzdManagedZone :: Lens' ManagedZonesDelete Text
mzdManagedZone
= lens _mzdManagedZone
(\ s a -> s{_mzdManagedZone = a})
mzdClientOperationId :: Lens' ManagedZonesDelete (Maybe Text)
mzdClientOperationId
= lens _mzdClientOperationId
(\ s a -> s{_mzdClientOperationId = a})
instance GoogleRequest ManagedZonesDelete where
type Rs ManagedZonesDelete = ()
type Scopes ManagedZonesDelete =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/ndev.clouddns.readwrite"]
requestClient ManagedZonesDelete'{..}
= go _mzdProject _mzdManagedZone
_mzdClientOperationId
(Just AltJSON)
dNSService
where go
= buildClient
(Proxy :: Proxy ManagedZonesDeleteResource)
mempty