{-# 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.MobileDevices.Delete
(
MobileDevicesDeleteResource
, mobileDevicesDelete
, MobileDevicesDelete
, mddResourceId
, mddCustomerId
) where
import Network.Google.Directory.Types
import Network.Google.Prelude
type MobileDevicesDeleteResource =
"admin" :>
"directory" :>
"v1" :>
"customer" :>
Capture "customerId" Text :>
"devices" :>
"mobile" :>
Capture "resourceId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data MobileDevicesDelete =
MobileDevicesDelete'
{ _mddResourceId :: !Text
, _mddCustomerId :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
mobileDevicesDelete
:: Text
-> Text
-> MobileDevicesDelete
mobileDevicesDelete pMddResourceId_ pMddCustomerId_ =
MobileDevicesDelete'
{_mddResourceId = pMddResourceId_, _mddCustomerId = pMddCustomerId_}
mddResourceId :: Lens' MobileDevicesDelete Text
mddResourceId
= lens _mddResourceId
(\ s a -> s{_mddResourceId = a})
mddCustomerId :: Lens' MobileDevicesDelete Text
mddCustomerId
= lens _mddCustomerId
(\ s a -> s{_mddCustomerId = a})
instance GoogleRequest MobileDevicesDelete where
type Rs MobileDevicesDelete = ()
type Scopes MobileDevicesDelete =
'["https://www.googleapis.com/auth/admin.directory.device.mobile"]
requestClient MobileDevicesDelete'{..}
= go _mddCustomerId _mddResourceId (Just AltJSON)
directoryService
where go
= buildClient
(Proxy :: Proxy MobileDevicesDeleteResource)
mempty