{-# 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.Devices.Operations.Cancel
(
EnterprisesDevicesOperationsCancelResource
, enterprisesDevicesOperationsCancel
, EnterprisesDevicesOperationsCancel
, edocXgafv
, edocUploadProtocol
, edocAccessToken
, edocUploadType
, edocName
, edocCallback
) where
import Network.Google.AndroidManagement.Types
import Network.Google.Prelude
type EnterprisesDevicesOperationsCancelResource =
"v1" :>
CaptureMode "name" "cancel" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Post '[JSON] Empty
data EnterprisesDevicesOperationsCancel = EnterprisesDevicesOperationsCancel'
{ _edocXgafv :: !(Maybe Xgafv)
, _edocUploadProtocol :: !(Maybe Text)
, _edocAccessToken :: !(Maybe Text)
, _edocUploadType :: !(Maybe Text)
, _edocName :: !Text
, _edocCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
enterprisesDevicesOperationsCancel
:: Text
-> EnterprisesDevicesOperationsCancel
enterprisesDevicesOperationsCancel pEdocName_ =
EnterprisesDevicesOperationsCancel'
{ _edocXgafv = Nothing
, _edocUploadProtocol = Nothing
, _edocAccessToken = Nothing
, _edocUploadType = Nothing
, _edocName = pEdocName_
, _edocCallback = Nothing
}
edocXgafv :: Lens' EnterprisesDevicesOperationsCancel (Maybe Xgafv)
edocXgafv
= lens _edocXgafv (\ s a -> s{_edocXgafv = a})
edocUploadProtocol :: Lens' EnterprisesDevicesOperationsCancel (Maybe Text)
edocUploadProtocol
= lens _edocUploadProtocol
(\ s a -> s{_edocUploadProtocol = a})
edocAccessToken :: Lens' EnterprisesDevicesOperationsCancel (Maybe Text)
edocAccessToken
= lens _edocAccessToken
(\ s a -> s{_edocAccessToken = a})
edocUploadType :: Lens' EnterprisesDevicesOperationsCancel (Maybe Text)
edocUploadType
= lens _edocUploadType
(\ s a -> s{_edocUploadType = a})
edocName :: Lens' EnterprisesDevicesOperationsCancel Text
edocName = lens _edocName (\ s a -> s{_edocName = a})
edocCallback :: Lens' EnterprisesDevicesOperationsCancel (Maybe Text)
edocCallback
= lens _edocCallback (\ s a -> s{_edocCallback = a})
instance GoogleRequest
EnterprisesDevicesOperationsCancel where
type Rs EnterprisesDevicesOperationsCancel = Empty
type Scopes EnterprisesDevicesOperationsCancel =
'["https://www.googleapis.com/auth/androidmanagement"]
requestClient EnterprisesDevicesOperationsCancel'{..}
= go _edocName _edocXgafv _edocUploadProtocol
_edocAccessToken
_edocUploadType
_edocCallback
(Just AltJSON)
androidManagementService
where go
= buildClient
(Proxy ::
Proxy EnterprisesDevicesOperationsCancelResource)
mempty