{-# 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.ManagedConfigurationsforDevice.Update
(
ManagedConfigurationsforDeviceUpdateResource
, managedConfigurationsforDeviceUpdate
, ManagedConfigurationsforDeviceUpdate
, mcduEnterpriseId
, mcduPayload
, mcduUserId
, mcduDeviceId
, mcduManagedConfigurationForDeviceId
) where
import Network.Google.AndroidEnterprise.Types
import Network.Google.Prelude
type ManagedConfigurationsforDeviceUpdateResource =
"androidenterprise" :>
"v1" :>
"enterprises" :>
Capture "enterpriseId" Text :>
"users" :>
Capture "userId" Text :>
"devices" :>
Capture "deviceId" Text :>
"managedConfigurationsForDevice" :>
Capture "managedConfigurationForDeviceId" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] ManagedConfiguration :>
Put '[JSON] ManagedConfiguration
data ManagedConfigurationsforDeviceUpdate = ManagedConfigurationsforDeviceUpdate'
{ _mcduEnterpriseId :: !Text
, _mcduPayload :: !ManagedConfiguration
, _mcduUserId :: !Text
, _mcduDeviceId :: !Text
, _mcduManagedConfigurationForDeviceId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
managedConfigurationsforDeviceUpdate
:: Text
-> ManagedConfiguration
-> Text
-> Text
-> Text
-> ManagedConfigurationsforDeviceUpdate
managedConfigurationsforDeviceUpdate pMcduEnterpriseId_ pMcduPayload_ pMcduUserId_ pMcduDeviceId_ pMcduManagedConfigurationForDeviceId_ =
ManagedConfigurationsforDeviceUpdate'
{ _mcduEnterpriseId = pMcduEnterpriseId_
, _mcduPayload = pMcduPayload_
, _mcduUserId = pMcduUserId_
, _mcduDeviceId = pMcduDeviceId_
, _mcduManagedConfigurationForDeviceId = pMcduManagedConfigurationForDeviceId_
}
mcduEnterpriseId :: Lens' ManagedConfigurationsforDeviceUpdate Text
mcduEnterpriseId
= lens _mcduEnterpriseId
(\ s a -> s{_mcduEnterpriseId = a})
mcduPayload :: Lens' ManagedConfigurationsforDeviceUpdate ManagedConfiguration
mcduPayload
= lens _mcduPayload (\ s a -> s{_mcduPayload = a})
mcduUserId :: Lens' ManagedConfigurationsforDeviceUpdate Text
mcduUserId
= lens _mcduUserId (\ s a -> s{_mcduUserId = a})
mcduDeviceId :: Lens' ManagedConfigurationsforDeviceUpdate Text
mcduDeviceId
= lens _mcduDeviceId (\ s a -> s{_mcduDeviceId = a})
mcduManagedConfigurationForDeviceId :: Lens' ManagedConfigurationsforDeviceUpdate Text
mcduManagedConfigurationForDeviceId
= lens _mcduManagedConfigurationForDeviceId
(\ s a ->
s{_mcduManagedConfigurationForDeviceId = a})
instance GoogleRequest
ManagedConfigurationsforDeviceUpdate where
type Rs ManagedConfigurationsforDeviceUpdate =
ManagedConfiguration
type Scopes ManagedConfigurationsforDeviceUpdate =
'["https://www.googleapis.com/auth/androidenterprise"]
requestClient
ManagedConfigurationsforDeviceUpdate'{..}
= go _mcduEnterpriseId _mcduUserId _mcduDeviceId
_mcduManagedConfigurationForDeviceId
(Just AltJSON)
_mcduPayload
androidEnterpriseService
where go
= buildClient
(Proxy ::
Proxy ManagedConfigurationsforDeviceUpdateResource)
mempty