{-# 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.AndroidManagement.Enterprises.Get
(
EnterprisesGetResource
, enterprisesGet
, EnterprisesGet
, egXgafv
, egUploadProtocol
, egAccessToken
, egUploadType
, egName
, egCallback
) where
import Network.Google.AndroidManagement.Types
import Network.Google.Prelude
type EnterprisesGetResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Enterprise
data EnterprisesGet = EnterprisesGet'
{ _egXgafv :: !(Maybe Xgafv)
, _egUploadProtocol :: !(Maybe Text)
, _egAccessToken :: !(Maybe Text)
, _egUploadType :: !(Maybe Text)
, _egName :: !Text
, _egCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
enterprisesGet
:: Text
-> EnterprisesGet
enterprisesGet pEgName_ =
EnterprisesGet'
{ _egXgafv = Nothing
, _egUploadProtocol = Nothing
, _egAccessToken = Nothing
, _egUploadType = Nothing
, _egName = pEgName_
, _egCallback = Nothing
}
egXgafv :: Lens' EnterprisesGet (Maybe Xgafv)
egXgafv = lens _egXgafv (\ s a -> s{_egXgafv = a})
egUploadProtocol :: Lens' EnterprisesGet (Maybe Text)
egUploadProtocol
= lens _egUploadProtocol
(\ s a -> s{_egUploadProtocol = a})
egAccessToken :: Lens' EnterprisesGet (Maybe Text)
egAccessToken
= lens _egAccessToken
(\ s a -> s{_egAccessToken = a})
egUploadType :: Lens' EnterprisesGet (Maybe Text)
egUploadType
= lens _egUploadType (\ s a -> s{_egUploadType = a})
egName :: Lens' EnterprisesGet Text
egName = lens _egName (\ s a -> s{_egName = a})
egCallback :: Lens' EnterprisesGet (Maybe Text)
egCallback
= lens _egCallback (\ s a -> s{_egCallback = a})
instance GoogleRequest EnterprisesGet where
type Rs EnterprisesGet = Enterprise
type Scopes EnterprisesGet =
'["https://www.googleapis.com/auth/androidmanagement"]
requestClient EnterprisesGet'{..}
= go _egName _egXgafv _egUploadProtocol
_egAccessToken
_egUploadType
_egCallback
(Just AltJSON)
androidManagementService
where go
= buildClient (Proxy :: Proxy EnterprisesGetResource)
mempty