{-# 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.GroupsSettings.Groups.Get
(
GroupsGetResource
, groupsGet
, GroupsGet
, ggGroupUniqueId
) where
import Network.Google.GroupsSettings.Types
import Network.Google.Prelude
type GroupsGetResource =
"groups" :>
"v1" :>
"groups" :>
Capture "groupUniqueId" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Groups
newtype GroupsGet = GroupsGet'
{ _ggGroupUniqueId :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
groupsGet
:: Text
-> GroupsGet
groupsGet pGgGroupUniqueId_ =
GroupsGet'
{ _ggGroupUniqueId = pGgGroupUniqueId_
}
ggGroupUniqueId :: Lens' GroupsGet Text
ggGroupUniqueId
= lens _ggGroupUniqueId
(\ s a -> s{_ggGroupUniqueId = a})
instance GoogleRequest GroupsGet where
type Rs GroupsGet = Groups
type Scopes GroupsGet =
'["https://www.googleapis.com/auth/apps.groups.settings"]
requestClient GroupsGet'{..}
= go _ggGroupUniqueId (Just AltJSON)
groupsSettingsService
where go
= buildClient (Proxy :: Proxy GroupsGetResource)
mempty