module Network.Google.Resource.CloudResourceManager.Projects.GetIAMPolicy
(
ProjectsGetIAMPolicyResource
, projectsGetIAMPolicy
, ProjectsGetIAMPolicy
, pgipXgafv
, pgipUploadProtocol
, pgipPp
, pgipAccessToken
, pgipUploadType
, pgipPayload
, pgipBearerToken
, pgipResource
, pgipCallback
) where
import Network.Google.Prelude
import Network.Google.ResourceManager.Types
type ProjectsGetIAMPolicyResource =
"v1beta1" :>
"projects" :>
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 :>
ReqBody '[JSON] GetIAMPolicyRequest :>
Post '[JSON] Policy
data ProjectsGetIAMPolicy = ProjectsGetIAMPolicy
{ _pgipXgafv :: !(Maybe Text)
, _pgipUploadProtocol :: !(Maybe Text)
, _pgipPp :: !Bool
, _pgipAccessToken :: !(Maybe Text)
, _pgipUploadType :: !(Maybe Text)
, _pgipPayload :: !GetIAMPolicyRequest
, _pgipBearerToken :: !(Maybe Text)
, _pgipResource :: !Text
, _pgipCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsGetIAMPolicy
:: GetIAMPolicyRequest
-> Text
-> ProjectsGetIAMPolicy
projectsGetIAMPolicy pPgipPayload_ pPgipResource_ =
ProjectsGetIAMPolicy
{ _pgipXgafv = Nothing
, _pgipUploadProtocol = Nothing
, _pgipPp = True
, _pgipAccessToken = Nothing
, _pgipUploadType = Nothing
, _pgipPayload = pPgipPayload_
, _pgipBearerToken = Nothing
, _pgipResource = pPgipResource_
, _pgipCallback = Nothing
}
pgipXgafv :: Lens' ProjectsGetIAMPolicy (Maybe Text)
pgipXgafv
= lens _pgipXgafv (\ s a -> s{_pgipXgafv = a})
pgipUploadProtocol :: Lens' ProjectsGetIAMPolicy (Maybe Text)
pgipUploadProtocol
= lens _pgipUploadProtocol
(\ s a -> s{_pgipUploadProtocol = a})
pgipPp :: Lens' ProjectsGetIAMPolicy Bool
pgipPp = lens _pgipPp (\ s a -> s{_pgipPp = a})
pgipAccessToken :: Lens' ProjectsGetIAMPolicy (Maybe Text)
pgipAccessToken
= lens _pgipAccessToken
(\ s a -> s{_pgipAccessToken = a})
pgipUploadType :: Lens' ProjectsGetIAMPolicy (Maybe Text)
pgipUploadType
= lens _pgipUploadType
(\ s a -> s{_pgipUploadType = a})
pgipPayload :: Lens' ProjectsGetIAMPolicy GetIAMPolicyRequest
pgipPayload
= lens _pgipPayload (\ s a -> s{_pgipPayload = a})
pgipBearerToken :: Lens' ProjectsGetIAMPolicy (Maybe Text)
pgipBearerToken
= lens _pgipBearerToken
(\ s a -> s{_pgipBearerToken = a})
pgipResource :: Lens' ProjectsGetIAMPolicy Text
pgipResource
= lens _pgipResource (\ s a -> s{_pgipResource = a})
pgipCallback :: Lens' ProjectsGetIAMPolicy (Maybe Text)
pgipCallback
= lens _pgipCallback (\ s a -> s{_pgipCallback = a})
instance GoogleRequest ProjectsGetIAMPolicy where
type Rs ProjectsGetIAMPolicy = Policy
requestClient ProjectsGetIAMPolicy{..}
= go _pgipResource _pgipXgafv _pgipUploadProtocol
(Just _pgipPp)
_pgipAccessToken
_pgipUploadType
_pgipBearerToken
_pgipCallback
(Just AltJSON)
_pgipPayload
resourceManagerService
where go
= buildClient
(Proxy :: Proxy ProjectsGetIAMPolicyResource)
mempty