{-# 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.Get
(
ManagedConfigurationsforDeviceGetResource
, managedConfigurationsforDeviceGet
, ManagedConfigurationsforDeviceGet
, mcdgEnterpriseId
, mcdgUserId
, mcdgDeviceId
, mcdgManagedConfigurationForDeviceId
) where
import Network.Google.AndroidEnterprise.Types
import Network.Google.Prelude
type ManagedConfigurationsforDeviceGetResource =
"androidenterprise" :>
"v1" :>
"enterprises" :>
Capture "enterpriseId" Text :>
"users" :>
Capture "userId" Text :>
"devices" :>
Capture "deviceId" Text :>
"managedConfigurationsForDevice" :>
Capture "managedConfigurationForDeviceId" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ManagedConfiguration
data ManagedConfigurationsforDeviceGet = ManagedConfigurationsforDeviceGet'
{ _mcdgEnterpriseId :: !Text
, _mcdgUserId :: !Text
, _mcdgDeviceId :: !Text
, _mcdgManagedConfigurationForDeviceId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
managedConfigurationsforDeviceGet
:: Text
-> Text
-> Text
-> Text
-> ManagedConfigurationsforDeviceGet
managedConfigurationsforDeviceGet pMcdgEnterpriseId_ pMcdgUserId_ pMcdgDeviceId_ pMcdgManagedConfigurationForDeviceId_ =
ManagedConfigurationsforDeviceGet'
{ _mcdgEnterpriseId = pMcdgEnterpriseId_
, _mcdgUserId = pMcdgUserId_
, _mcdgDeviceId = pMcdgDeviceId_
, _mcdgManagedConfigurationForDeviceId = pMcdgManagedConfigurationForDeviceId_
}
mcdgEnterpriseId :: Lens' ManagedConfigurationsforDeviceGet Text
mcdgEnterpriseId
= lens _mcdgEnterpriseId
(\ s a -> s{_mcdgEnterpriseId = a})
mcdgUserId :: Lens' ManagedConfigurationsforDeviceGet Text
mcdgUserId
= lens _mcdgUserId (\ s a -> s{_mcdgUserId = a})
mcdgDeviceId :: Lens' ManagedConfigurationsforDeviceGet Text
mcdgDeviceId
= lens _mcdgDeviceId (\ s a -> s{_mcdgDeviceId = a})
mcdgManagedConfigurationForDeviceId :: Lens' ManagedConfigurationsforDeviceGet Text
mcdgManagedConfigurationForDeviceId
= lens _mcdgManagedConfigurationForDeviceId
(\ s a ->
s{_mcdgManagedConfigurationForDeviceId = a})
instance GoogleRequest
ManagedConfigurationsforDeviceGet where
type Rs ManagedConfigurationsforDeviceGet =
ManagedConfiguration
type Scopes ManagedConfigurationsforDeviceGet =
'["https://www.googleapis.com/auth/androidenterprise"]
requestClient ManagedConfigurationsforDeviceGet'{..}
= go _mcdgEnterpriseId _mcdgUserId _mcdgDeviceId
_mcdgManagedConfigurationForDeviceId
(Just AltJSON)
androidEnterpriseService
where go
= buildClient
(Proxy ::
Proxy ManagedConfigurationsforDeviceGetResource)
mempty