{-# 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.Directory.Domains.Delete
(
DomainsDeleteResource
, domainsDelete
, DomainsDelete
, ddCustomer
, ddDomainName
) where
import Network.Google.Directory.Types
import Network.Google.Prelude
type DomainsDeleteResource =
"admin" :>
"directory" :>
"v1" :>
"customer" :>
Capture "customer" Text :>
"domains" :>
Capture "domainName" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data DomainsDelete =
DomainsDelete'
{ _ddCustomer :: !Text
, _ddDomainName :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
domainsDelete
:: Text
-> Text
-> DomainsDelete
domainsDelete pDdCustomer_ pDdDomainName_ =
DomainsDelete' {_ddCustomer = pDdCustomer_, _ddDomainName = pDdDomainName_}
ddCustomer :: Lens' DomainsDelete Text
ddCustomer
= lens _ddCustomer (\ s a -> s{_ddCustomer = a})
ddDomainName :: Lens' DomainsDelete Text
ddDomainName
= lens _ddDomainName (\ s a -> s{_ddDomainName = a})
instance GoogleRequest DomainsDelete where
type Rs DomainsDelete = ()
type Scopes DomainsDelete =
'["https://www.googleapis.com/auth/admin.directory.domain"]
requestClient DomainsDelete'{..}
= go _ddCustomer _ddDomainName (Just AltJSON)
directoryService
where go
= buildClient (Proxy :: Proxy DomainsDeleteResource)
mempty