{-# 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.Resources.Buildings.Delete
(
ResourcesBuildingsDeleteResource
, resourcesBuildingsDelete
, ResourcesBuildingsDelete
, rbdBuildingId
, rbdCustomer
) where
import Network.Google.Directory.Types
import Network.Google.Prelude
type ResourcesBuildingsDeleteResource =
"admin" :>
"directory" :>
"v1" :>
"customer" :>
Capture "customer" Text :>
"resources" :>
"buildings" :>
Capture "buildingId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data ResourcesBuildingsDelete = ResourcesBuildingsDelete'
{ _rbdBuildingId :: !Text
, _rbdCustomer :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
resourcesBuildingsDelete
:: Text
-> Text
-> ResourcesBuildingsDelete
resourcesBuildingsDelete pRbdBuildingId_ pRbdCustomer_ =
ResourcesBuildingsDelete'
{ _rbdBuildingId = pRbdBuildingId_
, _rbdCustomer = pRbdCustomer_
}
rbdBuildingId :: Lens' ResourcesBuildingsDelete Text
rbdBuildingId
= lens _rbdBuildingId
(\ s a -> s{_rbdBuildingId = a})
rbdCustomer :: Lens' ResourcesBuildingsDelete Text
rbdCustomer
= lens _rbdCustomer (\ s a -> s{_rbdCustomer = a})
instance GoogleRequest ResourcesBuildingsDelete where
type Rs ResourcesBuildingsDelete = ()
type Scopes ResourcesBuildingsDelete =
'["https://www.googleapis.com/auth/admin.directory.resource.calendar"]
requestClient ResourcesBuildingsDelete'{..}
= go _rbdCustomer _rbdBuildingId (Just AltJSON)
directoryService
where go
= buildClient
(Proxy :: Proxy ResourcesBuildingsDeleteResource)
mempty