{-# 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.AndroidDeviceProvisioning.Partners.Devices.UpdateMetadataAsync
(
PartnersDevicesUpdateMetadataAsyncResource
, partnersDevicesUpdateMetadataAsync
, PartnersDevicesUpdateMetadataAsync
, pdumaXgafv
, pdumaUploadProtocol
, pdumaAccessToken
, pdumaPartnerId
, pdumaUploadType
, pdumaPayload
, pdumaCallback
) where
import Network.Google.AndroidDeviceProvisioning.Types
import Network.Google.Prelude
type PartnersDevicesUpdateMetadataAsyncResource =
"v1" :>
"partners" :>
Capture "partnerId" (Textual Int64) :>
"devices:updateMetadataAsync" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] UpdateDeviceMetadataInBatchRequest :>
Post '[JSON] Operation
data PartnersDevicesUpdateMetadataAsync = PartnersDevicesUpdateMetadataAsync'
{ _pdumaXgafv :: !(Maybe Xgafv)
, _pdumaUploadProtocol :: !(Maybe Text)
, _pdumaAccessToken :: !(Maybe Text)
, _pdumaPartnerId :: !(Textual Int64)
, _pdumaUploadType :: !(Maybe Text)
, _pdumaPayload :: !UpdateDeviceMetadataInBatchRequest
, _pdumaCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
partnersDevicesUpdateMetadataAsync
:: Int64
-> UpdateDeviceMetadataInBatchRequest
-> PartnersDevicesUpdateMetadataAsync
partnersDevicesUpdateMetadataAsync pPdumaPartnerId_ pPdumaPayload_ =
PartnersDevicesUpdateMetadataAsync'
{ _pdumaXgafv = Nothing
, _pdumaUploadProtocol = Nothing
, _pdumaAccessToken = Nothing
, _pdumaPartnerId = _Coerce # pPdumaPartnerId_
, _pdumaUploadType = Nothing
, _pdumaPayload = pPdumaPayload_
, _pdumaCallback = Nothing
}
pdumaXgafv :: Lens' PartnersDevicesUpdateMetadataAsync (Maybe Xgafv)
pdumaXgafv
= lens _pdumaXgafv (\ s a -> s{_pdumaXgafv = a})
pdumaUploadProtocol :: Lens' PartnersDevicesUpdateMetadataAsync (Maybe Text)
pdumaUploadProtocol
= lens _pdumaUploadProtocol
(\ s a -> s{_pdumaUploadProtocol = a})
pdumaAccessToken :: Lens' PartnersDevicesUpdateMetadataAsync (Maybe Text)
pdumaAccessToken
= lens _pdumaAccessToken
(\ s a -> s{_pdumaAccessToken = a})
pdumaPartnerId :: Lens' PartnersDevicesUpdateMetadataAsync Int64
pdumaPartnerId
= lens _pdumaPartnerId
(\ s a -> s{_pdumaPartnerId = a})
. _Coerce
pdumaUploadType :: Lens' PartnersDevicesUpdateMetadataAsync (Maybe Text)
pdumaUploadType
= lens _pdumaUploadType
(\ s a -> s{_pdumaUploadType = a})
pdumaPayload :: Lens' PartnersDevicesUpdateMetadataAsync UpdateDeviceMetadataInBatchRequest
pdumaPayload
= lens _pdumaPayload (\ s a -> s{_pdumaPayload = a})
pdumaCallback :: Lens' PartnersDevicesUpdateMetadataAsync (Maybe Text)
pdumaCallback
= lens _pdumaCallback
(\ s a -> s{_pdumaCallback = a})
instance GoogleRequest
PartnersDevicesUpdateMetadataAsync where
type Rs PartnersDevicesUpdateMetadataAsync =
Operation
type Scopes PartnersDevicesUpdateMetadataAsync = '[]
requestClient PartnersDevicesUpdateMetadataAsync'{..}
= go _pdumaPartnerId _pdumaXgafv _pdumaUploadProtocol
_pdumaAccessToken
_pdumaUploadType
_pdumaCallback
(Just AltJSON)
_pdumaPayload
androidDeviceProvisioningService
where go
= buildClient
(Proxy ::
Proxy PartnersDevicesUpdateMetadataAsyncResource)
mempty