{-# 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