{-# 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.Enterprises.GetAndroidDevicePolicyConfig
(
EnterprisesGetAndroidDevicePolicyConfigResource
, enterprisesGetAndroidDevicePolicyConfig
, EnterprisesGetAndroidDevicePolicyConfig
, egadpcEnterpriseId
) where
import Network.Google.AndroidEnterprise.Types
import Network.Google.Prelude
type EnterprisesGetAndroidDevicePolicyConfigResource
=
"androidenterprise" :>
"v1" :>
"enterprises" :>
Capture "enterpriseId" Text :>
"androidDevicePolicyConfig" :>
QueryParam "alt" AltJSON :>
Get '[JSON] AndroidDevicePolicyConfig
newtype EnterprisesGetAndroidDevicePolicyConfig = EnterprisesGetAndroidDevicePolicyConfig'
{ _egadpcEnterpriseId :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
enterprisesGetAndroidDevicePolicyConfig
:: Text
-> EnterprisesGetAndroidDevicePolicyConfig
enterprisesGetAndroidDevicePolicyConfig pEgadpcEnterpriseId_ =
EnterprisesGetAndroidDevicePolicyConfig'
{ _egadpcEnterpriseId = pEgadpcEnterpriseId_
}
egadpcEnterpriseId :: Lens' EnterprisesGetAndroidDevicePolicyConfig Text
egadpcEnterpriseId
= lens _egadpcEnterpriseId
(\ s a -> s{_egadpcEnterpriseId = a})
instance GoogleRequest
EnterprisesGetAndroidDevicePolicyConfig where
type Rs EnterprisesGetAndroidDevicePolicyConfig =
AndroidDevicePolicyConfig
type Scopes EnterprisesGetAndroidDevicePolicyConfig =
'["https://www.googleapis.com/auth/androidenterprise"]
requestClient
EnterprisesGetAndroidDevicePolicyConfig'{..}
= go _egadpcEnterpriseId (Just AltJSON)
androidEnterpriseService
where go
= buildClient
(Proxy ::
Proxy
EnterprisesGetAndroidDevicePolicyConfigResource)
mempty