{-# 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.ManagedConfigurationsforUser.Patch
(
ManagedConfigurationsforUserPatchResource
, managedConfigurationsforUserPatch
, ManagedConfigurationsforUserPatch
, mcupEnterpriseId
, mcupPayload
, mcupUserId
, mcupManagedConfigurationForUserId
) where
import Network.Google.AndroidEnterprise.Types
import Network.Google.Prelude
type ManagedConfigurationsforUserPatchResource =
"androidenterprise" :>
"v1" :>
"enterprises" :>
Capture "enterpriseId" Text :>
"users" :>
Capture "userId" Text :>
"managedConfigurationsForUser" :>
Capture "managedConfigurationForUserId" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] ManagedConfiguration :>
Patch '[JSON] ManagedConfiguration
data ManagedConfigurationsforUserPatch = ManagedConfigurationsforUserPatch'
{ _mcupEnterpriseId :: !Text
, _mcupPayload :: !ManagedConfiguration
, _mcupUserId :: !Text
, _mcupManagedConfigurationForUserId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
managedConfigurationsforUserPatch
:: Text
-> ManagedConfiguration
-> Text
-> Text
-> ManagedConfigurationsforUserPatch
managedConfigurationsforUserPatch pMcupEnterpriseId_ pMcupPayload_ pMcupUserId_ pMcupManagedConfigurationForUserId_ =
ManagedConfigurationsforUserPatch'
{ _mcupEnterpriseId = pMcupEnterpriseId_
, _mcupPayload = pMcupPayload_
, _mcupUserId = pMcupUserId_
, _mcupManagedConfigurationForUserId = pMcupManagedConfigurationForUserId_
}
mcupEnterpriseId :: Lens' ManagedConfigurationsforUserPatch Text
mcupEnterpriseId
= lens _mcupEnterpriseId
(\ s a -> s{_mcupEnterpriseId = a})
mcupPayload :: Lens' ManagedConfigurationsforUserPatch ManagedConfiguration
mcupPayload
= lens _mcupPayload (\ s a -> s{_mcupPayload = a})
mcupUserId :: Lens' ManagedConfigurationsforUserPatch Text
mcupUserId
= lens _mcupUserId (\ s a -> s{_mcupUserId = a})
mcupManagedConfigurationForUserId :: Lens' ManagedConfigurationsforUserPatch Text
mcupManagedConfigurationForUserId
= lens _mcupManagedConfigurationForUserId
(\ s a -> s{_mcupManagedConfigurationForUserId = a})
instance GoogleRequest
ManagedConfigurationsforUserPatch where
type Rs ManagedConfigurationsforUserPatch =
ManagedConfiguration
type Scopes ManagedConfigurationsforUserPatch =
'["https://www.googleapis.com/auth/androidenterprise"]
requestClient ManagedConfigurationsforUserPatch'{..}
= go _mcupEnterpriseId _mcupUserId
_mcupManagedConfigurationForUserId
(Just AltJSON)
_mcupPayload
androidEnterpriseService
where go
= buildClient
(Proxy ::
Proxy ManagedConfigurationsforUserPatchResource)
mempty