{-# 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.PubSub.Projects.Subscriptions.GetIAMPolicy
(
ProjectsSubscriptionsGetIAMPolicyResource
, projectsSubscriptionsGetIAMPolicy
, ProjectsSubscriptionsGetIAMPolicy
, psgiampXgafv
, psgiampUploadProtocol
, psgiampPp
, psgiampAccessToken
, psgiampUploadType
, psgiampBearerToken
, psgiampResource
, psgiampCallback
) where
import Network.Google.Prelude
import Network.Google.PubSub.Types
type ProjectsSubscriptionsGetIAMPolicyResource =
"v1" :>
CaptureMode "resource" "getIamPolicy" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Policy
-- | Gets the access control policy for a resource. Returns an empty policy
-- if the resource exists and does not have a policy set.
--
-- /See:/ 'projectsSubscriptionsGetIAMPolicy' smart constructor.
data ProjectsSubscriptionsGetIAMPolicy = ProjectsSubscriptionsGetIAMPolicy'
{ _psgiampXgafv :: !(Maybe Text)
, _psgiampUploadProtocol :: !(Maybe Text)
, _psgiampPp :: !Bool
, _psgiampAccessToken :: !(Maybe Text)
, _psgiampUploadType :: !(Maybe Text)
, _psgiampBearerToken :: !(Maybe Text)
, _psgiampResource :: !Text
, _psgiampCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'ProjectsSubscriptionsGetIAMPolicy' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'psgiampXgafv'
--
-- * 'psgiampUploadProtocol'
--
-- * 'psgiampPp'
--
-- * 'psgiampAccessToken'
--
-- * 'psgiampUploadType'
--
-- * 'psgiampBearerToken'
--
-- * 'psgiampResource'
--
-- * 'psgiampCallback'
projectsSubscriptionsGetIAMPolicy
:: Text -- ^ 'psgiampResource'
-> ProjectsSubscriptionsGetIAMPolicy
projectsSubscriptionsGetIAMPolicy pPsgiampResource_ =
ProjectsSubscriptionsGetIAMPolicy'
{ _psgiampXgafv = Nothing
, _psgiampUploadProtocol = Nothing
, _psgiampPp = True
, _psgiampAccessToken = Nothing
, _psgiampUploadType = Nothing
, _psgiampBearerToken = Nothing
, _psgiampResource = pPsgiampResource_
, _psgiampCallback = Nothing
}
-- | V1 error format.
psgiampXgafv :: Lens' ProjectsSubscriptionsGetIAMPolicy (Maybe Text)
psgiampXgafv
= lens _psgiampXgafv (\ s a -> s{_psgiampXgafv = a})
-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
psgiampUploadProtocol :: Lens' ProjectsSubscriptionsGetIAMPolicy (Maybe Text)
psgiampUploadProtocol
= lens _psgiampUploadProtocol
(\ s a -> s{_psgiampUploadProtocol = a})
-- | Pretty-print response.
psgiampPp :: Lens' ProjectsSubscriptionsGetIAMPolicy Bool
psgiampPp
= lens _psgiampPp (\ s a -> s{_psgiampPp = a})
-- | OAuth access token.
psgiampAccessToken :: Lens' ProjectsSubscriptionsGetIAMPolicy (Maybe Text)
psgiampAccessToken
= lens _psgiampAccessToken
(\ s a -> s{_psgiampAccessToken = a})
-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
psgiampUploadType :: Lens' ProjectsSubscriptionsGetIAMPolicy (Maybe Text)
psgiampUploadType
= lens _psgiampUploadType
(\ s a -> s{_psgiampUploadType = a})
-- | OAuth bearer token.
psgiampBearerToken :: Lens' ProjectsSubscriptionsGetIAMPolicy (Maybe Text)
psgiampBearerToken
= lens _psgiampBearerToken
(\ s a -> s{_psgiampBearerToken = a})
-- | REQUIRED: The resource for which the policy is being requested.
-- \`resource\` is usually specified as a path. For example, a Project
-- resource is specified as \`projects\/{project}\`.
psgiampResource :: Lens' ProjectsSubscriptionsGetIAMPolicy Text
psgiampResource
= lens _psgiampResource
(\ s a -> s{_psgiampResource = a})
-- | JSONP
psgiampCallback :: Lens' ProjectsSubscriptionsGetIAMPolicy (Maybe Text)
psgiampCallback
= lens _psgiampCallback
(\ s a -> s{_psgiampCallback = a})
instance GoogleRequest
ProjectsSubscriptionsGetIAMPolicy where
type Rs ProjectsSubscriptionsGetIAMPolicy = Policy
type Scopes ProjectsSubscriptionsGetIAMPolicy =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/pubsub"]
requestClient ProjectsSubscriptionsGetIAMPolicy'{..}
= go _psgiampResource _psgiampXgafv
_psgiampUploadProtocol
(Just _psgiampPp)
_psgiampAccessToken
_psgiampUploadType
_psgiampBearerToken
_psgiampCallback
(Just AltJSON)
pubSubService
where go
= buildClient
(Proxy ::
Proxy ProjectsSubscriptionsGetIAMPolicyResource)
mempty