{-# 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.AndroidManagement.Enterprises.WebApps.Delete
(
EnterprisesWebAppsDeleteResource
, enterprisesWebAppsDelete
, EnterprisesWebAppsDelete
, ewadXgafv
, ewadUploadProtocol
, ewadAccessToken
, ewadUploadType
, ewadName
, ewadCallback
) where
import Network.Google.AndroidManagement.Types
import Network.Google.Prelude
type EnterprisesWebAppsDeleteResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Empty
data EnterprisesWebAppsDelete =
EnterprisesWebAppsDelete'
{ _ewadXgafv :: !(Maybe Xgafv)
, _ewadUploadProtocol :: !(Maybe Text)
, _ewadAccessToken :: !(Maybe Text)
, _ewadUploadType :: !(Maybe Text)
, _ewadName :: !Text
, _ewadCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
enterprisesWebAppsDelete
:: Text
-> EnterprisesWebAppsDelete
enterprisesWebAppsDelete pEwadName_ =
EnterprisesWebAppsDelete'
{ _ewadXgafv = Nothing
, _ewadUploadProtocol = Nothing
, _ewadAccessToken = Nothing
, _ewadUploadType = Nothing
, _ewadName = pEwadName_
, _ewadCallback = Nothing
}
ewadXgafv :: Lens' EnterprisesWebAppsDelete (Maybe Xgafv)
ewadXgafv
= lens _ewadXgafv (\ s a -> s{_ewadXgafv = a})
ewadUploadProtocol :: Lens' EnterprisesWebAppsDelete (Maybe Text)
ewadUploadProtocol
= lens _ewadUploadProtocol
(\ s a -> s{_ewadUploadProtocol = a})
ewadAccessToken :: Lens' EnterprisesWebAppsDelete (Maybe Text)
ewadAccessToken
= lens _ewadAccessToken
(\ s a -> s{_ewadAccessToken = a})
ewadUploadType :: Lens' EnterprisesWebAppsDelete (Maybe Text)
ewadUploadType
= lens _ewadUploadType
(\ s a -> s{_ewadUploadType = a})
ewadName :: Lens' EnterprisesWebAppsDelete Text
ewadName = lens _ewadName (\ s a -> s{_ewadName = a})
ewadCallback :: Lens' EnterprisesWebAppsDelete (Maybe Text)
ewadCallback
= lens _ewadCallback (\ s a -> s{_ewadCallback = a})
instance GoogleRequest EnterprisesWebAppsDelete where
type Rs EnterprisesWebAppsDelete = Empty
type Scopes EnterprisesWebAppsDelete =
'["https://www.googleapis.com/auth/androidmanagement"]
requestClient EnterprisesWebAppsDelete'{..}
= go _ewadName _ewadXgafv _ewadUploadProtocol
_ewadAccessToken
_ewadUploadType
_ewadCallback
(Just AltJSON)
androidManagementService
where go
= buildClient
(Proxy :: Proxy EnterprisesWebAppsDeleteResource)
mempty