{-# 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.GrouplicenseUsers.List
(
GrouplicenseUsersListResource
, grouplicenseUsersList
, GrouplicenseUsersList
, gulEnterpriseId
, gulGroupLicenseId
) where
import Network.Google.AndroidEnterprise.Types
import Network.Google.Prelude
type GrouplicenseUsersListResource =
"androidenterprise" :>
"v1" :>
"enterprises" :>
Capture "enterpriseId" Text :>
"groupLicenses" :>
Capture "groupLicenseId" Text :>
"users" :>
QueryParam "alt" AltJSON :>
Get '[JSON] GroupLicenseUsersListResponse
data GrouplicenseUsersList = GrouplicenseUsersList'
{ _gulEnterpriseId :: !Text
, _gulGroupLicenseId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
grouplicenseUsersList
:: Text
-> Text
-> GrouplicenseUsersList
grouplicenseUsersList pGulEnterpriseId_ pGulGroupLicenseId_ =
GrouplicenseUsersList'
{ _gulEnterpriseId = pGulEnterpriseId_
, _gulGroupLicenseId = pGulGroupLicenseId_
}
gulEnterpriseId :: Lens' GrouplicenseUsersList Text
gulEnterpriseId
= lens _gulEnterpriseId
(\ s a -> s{_gulEnterpriseId = a})
gulGroupLicenseId :: Lens' GrouplicenseUsersList Text
gulGroupLicenseId
= lens _gulGroupLicenseId
(\ s a -> s{_gulGroupLicenseId = a})
instance GoogleRequest GrouplicenseUsersList where
type Rs GrouplicenseUsersList =
GroupLicenseUsersListResponse
type Scopes GrouplicenseUsersList =
'["https://www.googleapis.com/auth/androidenterprise"]
requestClient GrouplicenseUsersList'{..}
= go _gulEnterpriseId _gulGroupLicenseId
(Just AltJSON)
androidEnterpriseService
where go
= buildClient
(Proxy :: Proxy GrouplicenseUsersListResource)
mempty