{-# 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.Directory.Groups.Aliases.List
(
GroupsAliasesListResource
, groupsAliasesList
, GroupsAliasesList
, galGroupKey
) where
import Network.Google.Directory.Types
import Network.Google.Prelude
type GroupsAliasesListResource =
"admin" :>
"directory" :>
"v1" :>
"groups" :>
Capture "groupKey" Text :>
"aliases" :>
QueryParam "alt" AltJSON :> Get '[JSON] Aliases
newtype GroupsAliasesList =
GroupsAliasesList'
{ _galGroupKey :: Text
}
deriving (Eq, Show, Data, Typeable, Generic)
groupsAliasesList
:: Text
-> GroupsAliasesList
groupsAliasesList pGalGroupKey_ =
GroupsAliasesList' {_galGroupKey = pGalGroupKey_}
galGroupKey :: Lens' GroupsAliasesList Text
galGroupKey
= lens _galGroupKey (\ s a -> s{_galGroupKey = a})
instance GoogleRequest GroupsAliasesList where
type Rs GroupsAliasesList = Aliases
type Scopes GroupsAliasesList =
'["https://www.googleapis.com/auth/admin.directory.group",
"https://www.googleapis.com/auth/admin.directory.group.readonly"]
requestClient GroupsAliasesList'{..}
= go _galGroupKey (Just AltJSON) directoryService
where go
= buildClient
(Proxy :: Proxy GroupsAliasesListResource)
mempty