{-# 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.AndroidEnterprise.ServiceAccountkeys.Delete
(
ServiceAccountkeysDeleteResource
, serviceAccountkeysDelete
, ServiceAccountkeysDelete
, sadKeyId
, sadEnterpriseId
) where
import Network.Google.AndroidEnterprise.Types
import Network.Google.Prelude
type ServiceAccountkeysDeleteResource =
"androidenterprise" :>
"v1" :>
"enterprises" :>
Capture "enterpriseId" Text :>
"serviceAccountKeys" :>
Capture "keyId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data ServiceAccountkeysDelete = ServiceAccountkeysDelete'
{ _sadKeyId :: !Text
, _sadEnterpriseId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
serviceAccountkeysDelete
:: Text
-> Text
-> ServiceAccountkeysDelete
serviceAccountkeysDelete pSadKeyId_ pSadEnterpriseId_ =
ServiceAccountkeysDelete'
{ _sadKeyId = pSadKeyId_
, _sadEnterpriseId = pSadEnterpriseId_
}
sadKeyId :: Lens' ServiceAccountkeysDelete Text
sadKeyId = lens _sadKeyId (\ s a -> s{_sadKeyId = a})
sadEnterpriseId :: Lens' ServiceAccountkeysDelete Text
sadEnterpriseId
= lens _sadEnterpriseId
(\ s a -> s{_sadEnterpriseId = a})
instance GoogleRequest ServiceAccountkeysDelete where
type Rs ServiceAccountkeysDelete = ()
type Scopes ServiceAccountkeysDelete =
'["https://www.googleapis.com/auth/androidenterprise"]
requestClient ServiceAccountkeysDelete'{..}
= go _sadEnterpriseId _sadKeyId (Just AltJSON)
androidEnterpriseService
where go
= buildClient
(Proxy :: Proxy ServiceAccountkeysDeleteResource)
mempty