{-# 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.Topics.GetIAMPolicy
(
ProjectsTopicsGetIAMPolicyResource
, projectsTopicsGetIAMPolicy
, ProjectsTopicsGetIAMPolicy
, ptgipXgafv
, ptgipUploadProtocol
, ptgipPp
, ptgipAccessToken
, ptgipUploadType
, ptgipBearerToken
, ptgipResource
, ptgipCallback
) where
import Network.Google.Prelude
import Network.Google.PubSub.Types
type ProjectsTopicsGetIAMPolicyResource =
"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:/ 'projectsTopicsGetIAMPolicy' smart constructor.
data ProjectsTopicsGetIAMPolicy = ProjectsTopicsGetIAMPolicy'
{ _ptgipXgafv :: !(Maybe Text)
, _ptgipUploadProtocol :: !(Maybe Text)
, _ptgipPp :: !Bool
, _ptgipAccessToken :: !(Maybe Text)
, _ptgipUploadType :: !(Maybe Text)
, _ptgipBearerToken :: !(Maybe Text)
, _ptgipResource :: !Text
, _ptgipCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'ProjectsTopicsGetIAMPolicy' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'ptgipXgafv'
--
-- * 'ptgipUploadProtocol'
--
-- * 'ptgipPp'
--
-- * 'ptgipAccessToken'
--
-- * 'ptgipUploadType'
--
-- * 'ptgipBearerToken'
--
-- * 'ptgipResource'
--
-- * 'ptgipCallback'
projectsTopicsGetIAMPolicy
:: Text -- ^ 'ptgipResource'
-> ProjectsTopicsGetIAMPolicy
projectsTopicsGetIAMPolicy pPtgipResource_ =
ProjectsTopicsGetIAMPolicy'
{ _ptgipXgafv = Nothing
, _ptgipUploadProtocol = Nothing
, _ptgipPp = True
, _ptgipAccessToken = Nothing
, _ptgipUploadType = Nothing
, _ptgipBearerToken = Nothing
, _ptgipResource = pPtgipResource_
, _ptgipCallback = Nothing
}
-- | V1 error format.
ptgipXgafv :: Lens' ProjectsTopicsGetIAMPolicy (Maybe Text)
ptgipXgafv
= lens _ptgipXgafv (\ s a -> s{_ptgipXgafv = a})
-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
ptgipUploadProtocol :: Lens' ProjectsTopicsGetIAMPolicy (Maybe Text)
ptgipUploadProtocol
= lens _ptgipUploadProtocol
(\ s a -> s{_ptgipUploadProtocol = a})
-- | Pretty-print response.
ptgipPp :: Lens' ProjectsTopicsGetIAMPolicy Bool
ptgipPp = lens _ptgipPp (\ s a -> s{_ptgipPp = a})
-- | OAuth access token.
ptgipAccessToken :: Lens' ProjectsTopicsGetIAMPolicy (Maybe Text)
ptgipAccessToken
= lens _ptgipAccessToken
(\ s a -> s{_ptgipAccessToken = a})
-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
ptgipUploadType :: Lens' ProjectsTopicsGetIAMPolicy (Maybe Text)
ptgipUploadType
= lens _ptgipUploadType
(\ s a -> s{_ptgipUploadType = a})
-- | OAuth bearer token.
ptgipBearerToken :: Lens' ProjectsTopicsGetIAMPolicy (Maybe Text)
ptgipBearerToken
= lens _ptgipBearerToken
(\ s a -> s{_ptgipBearerToken = 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}\`.
ptgipResource :: Lens' ProjectsTopicsGetIAMPolicy Text
ptgipResource
= lens _ptgipResource
(\ s a -> s{_ptgipResource = a})
-- | JSONP
ptgipCallback :: Lens' ProjectsTopicsGetIAMPolicy (Maybe Text)
ptgipCallback
= lens _ptgipCallback
(\ s a -> s{_ptgipCallback = a})
instance GoogleRequest ProjectsTopicsGetIAMPolicy
where
type Rs ProjectsTopicsGetIAMPolicy = Policy
type Scopes ProjectsTopicsGetIAMPolicy =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/pubsub"]
requestClient ProjectsTopicsGetIAMPolicy'{..}
= go _ptgipResource _ptgipXgafv _ptgipUploadProtocol
(Just _ptgipPp)
_ptgipAccessToken
_ptgipUploadType
_ptgipBearerToken
_ptgipCallback
(Just AltJSON)
pubSubService
where go
= buildClient
(Proxy :: Proxy ProjectsTopicsGetIAMPolicyResource)
mempty