{-# 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.DataFusion.Projects.Locations.Instances.GetIAMPolicy
(
ProjectsLocationsInstancesGetIAMPolicyResource
, projectsLocationsInstancesGetIAMPolicy
, ProjectsLocationsInstancesGetIAMPolicy
, pligipXgafv
, pligipUploadProtocol
, pligipAccessToken
, pligipUploadType
, pligipResource
, pligipCallback
) where
import Network.Google.DataFusion.Types
import Network.Google.Prelude
type ProjectsLocationsInstancesGetIAMPolicyResource =
"v1beta1" :>
CaptureMode "resource" "getIamPolicy" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Policy
data ProjectsLocationsInstancesGetIAMPolicy =
ProjectsLocationsInstancesGetIAMPolicy'
{ _pligipXgafv :: !(Maybe Xgafv)
, _pligipUploadProtocol :: !(Maybe Text)
, _pligipAccessToken :: !(Maybe Text)
, _pligipUploadType :: !(Maybe Text)
, _pligipResource :: !Text
, _pligipCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsLocationsInstancesGetIAMPolicy
:: Text
-> ProjectsLocationsInstancesGetIAMPolicy
projectsLocationsInstancesGetIAMPolicy pPligipResource_ =
ProjectsLocationsInstancesGetIAMPolicy'
{ _pligipXgafv = Nothing
, _pligipUploadProtocol = Nothing
, _pligipAccessToken = Nothing
, _pligipUploadType = Nothing
, _pligipResource = pPligipResource_
, _pligipCallback = Nothing
}
pligipXgafv :: Lens' ProjectsLocationsInstancesGetIAMPolicy (Maybe Xgafv)
pligipXgafv
= lens _pligipXgafv (\ s a -> s{_pligipXgafv = a})
pligipUploadProtocol :: Lens' ProjectsLocationsInstancesGetIAMPolicy (Maybe Text)
pligipUploadProtocol
= lens _pligipUploadProtocol
(\ s a -> s{_pligipUploadProtocol = a})
pligipAccessToken :: Lens' ProjectsLocationsInstancesGetIAMPolicy (Maybe Text)
pligipAccessToken
= lens _pligipAccessToken
(\ s a -> s{_pligipAccessToken = a})
pligipUploadType :: Lens' ProjectsLocationsInstancesGetIAMPolicy (Maybe Text)
pligipUploadType
= lens _pligipUploadType
(\ s a -> s{_pligipUploadType = a})
pligipResource :: Lens' ProjectsLocationsInstancesGetIAMPolicy Text
pligipResource
= lens _pligipResource
(\ s a -> s{_pligipResource = a})
pligipCallback :: Lens' ProjectsLocationsInstancesGetIAMPolicy (Maybe Text)
pligipCallback
= lens _pligipCallback
(\ s a -> s{_pligipCallback = a})
instance GoogleRequest
ProjectsLocationsInstancesGetIAMPolicy
where
type Rs ProjectsLocationsInstancesGetIAMPolicy =
Policy
type Scopes ProjectsLocationsInstancesGetIAMPolicy =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient
ProjectsLocationsInstancesGetIAMPolicy'{..}
= go _pligipResource _pligipXgafv
_pligipUploadProtocol
_pligipAccessToken
_pligipUploadType
_pligipCallback
(Just AltJSON)
dataFusionService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsInstancesGetIAMPolicyResource)
mempty