{-# 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.TestIAMPermissions
(
ProjectsSubscriptionsTestIAMPermissionsResource
, projectsSubscriptionsTestIAMPermissions
, ProjectsSubscriptionsTestIAMPermissions
, pstiampXgafv
, pstiampUploadProtocol
, pstiampPp
, pstiampAccessToken
, pstiampUploadType
, pstiampPayload
, pstiampBearerToken
, pstiampResource
, pstiampCallback
) where
import Network.Google.Prelude
import Network.Google.PubSub.Types
type ProjectsSubscriptionsTestIAMPermissionsResource
=
"v1" :>
CaptureMode "resource" "testIamPermissions" 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 :>
ReqBody '[JSON] TestIAMPermissionsRequest :>
Post '[JSON] TestIAMPermissionsResponse
-- | Returns permissions that a caller has on the specified resource.
--
-- /See:/ 'projectsSubscriptionsTestIAMPermissions' smart constructor.
data ProjectsSubscriptionsTestIAMPermissions = ProjectsSubscriptionsTestIAMPermissions'
{ _pstiampXgafv :: !(Maybe Text)
, _pstiampUploadProtocol :: !(Maybe Text)
, _pstiampPp :: !Bool
, _pstiampAccessToken :: !(Maybe Text)
, _pstiampUploadType :: !(Maybe Text)
, _pstiampPayload :: !TestIAMPermissionsRequest
, _pstiampBearerToken :: !(Maybe Text)
, _pstiampResource :: !Text
, _pstiampCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'ProjectsSubscriptionsTestIAMPermissions' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'pstiampXgafv'
--
-- * 'pstiampUploadProtocol'
--
-- * 'pstiampPp'
--
-- * 'pstiampAccessToken'
--
-- * 'pstiampUploadType'
--
-- * 'pstiampPayload'
--
-- * 'pstiampBearerToken'
--
-- * 'pstiampResource'
--
-- * 'pstiampCallback'
projectsSubscriptionsTestIAMPermissions
:: TestIAMPermissionsRequest -- ^ 'pstiampPayload'
-> Text -- ^ 'pstiampResource'
-> ProjectsSubscriptionsTestIAMPermissions
projectsSubscriptionsTestIAMPermissions pPstiampPayload_ pPstiampResource_ =
ProjectsSubscriptionsTestIAMPermissions'
{ _pstiampXgafv = Nothing
, _pstiampUploadProtocol = Nothing
, _pstiampPp = True
, _pstiampAccessToken = Nothing
, _pstiampUploadType = Nothing
, _pstiampPayload = pPstiampPayload_
, _pstiampBearerToken = Nothing
, _pstiampResource = pPstiampResource_
, _pstiampCallback = Nothing
}
-- | V1 error format.
pstiampXgafv :: Lens' ProjectsSubscriptionsTestIAMPermissions (Maybe Text)
pstiampXgafv
= lens _pstiampXgafv (\ s a -> s{_pstiampXgafv = a})
-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
pstiampUploadProtocol :: Lens' ProjectsSubscriptionsTestIAMPermissions (Maybe Text)
pstiampUploadProtocol
= lens _pstiampUploadProtocol
(\ s a -> s{_pstiampUploadProtocol = a})
-- | Pretty-print response.
pstiampPp :: Lens' ProjectsSubscriptionsTestIAMPermissions Bool
pstiampPp
= lens _pstiampPp (\ s a -> s{_pstiampPp = a})
-- | OAuth access token.
pstiampAccessToken :: Lens' ProjectsSubscriptionsTestIAMPermissions (Maybe Text)
pstiampAccessToken
= lens _pstiampAccessToken
(\ s a -> s{_pstiampAccessToken = a})
-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
pstiampUploadType :: Lens' ProjectsSubscriptionsTestIAMPermissions (Maybe Text)
pstiampUploadType
= lens _pstiampUploadType
(\ s a -> s{_pstiampUploadType = a})
-- | Multipart request metadata.
pstiampPayload :: Lens' ProjectsSubscriptionsTestIAMPermissions TestIAMPermissionsRequest
pstiampPayload
= lens _pstiampPayload
(\ s a -> s{_pstiampPayload = a})
-- | OAuth bearer token.
pstiampBearerToken :: Lens' ProjectsSubscriptionsTestIAMPermissions (Maybe Text)
pstiampBearerToken
= lens _pstiampBearerToken
(\ s a -> s{_pstiampBearerToken = a})
-- | REQUIRED: The resource for which the policy detail is being requested.
-- \`resource\` is usually specified as a path. For example, a Project
-- resource is specified as \`projects\/{project}\`.
pstiampResource :: Lens' ProjectsSubscriptionsTestIAMPermissions Text
pstiampResource
= lens _pstiampResource
(\ s a -> s{_pstiampResource = a})
-- | JSONP
pstiampCallback :: Lens' ProjectsSubscriptionsTestIAMPermissions (Maybe Text)
pstiampCallback
= lens _pstiampCallback
(\ s a -> s{_pstiampCallback = a})
instance GoogleRequest
ProjectsSubscriptionsTestIAMPermissions where
type Rs ProjectsSubscriptionsTestIAMPermissions =
TestIAMPermissionsResponse
type Scopes ProjectsSubscriptionsTestIAMPermissions =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/pubsub"]
requestClient
ProjectsSubscriptionsTestIAMPermissions'{..}
= go _pstiampResource _pstiampXgafv
_pstiampUploadProtocol
(Just _pstiampPp)
_pstiampAccessToken
_pstiampUploadType
_pstiampBearerToken
_pstiampCallback
(Just AltJSON)
_pstiampPayload
pubSubService
where go
= buildClient
(Proxy ::
Proxy
ProjectsSubscriptionsTestIAMPermissionsResource)
mempty