module Network.Google.Resource.CloudResourceManager.Organizations.GetIAMPolicy
(
OrganizationsGetIAMPolicyResource
, organizationsGetIAMPolicy
, OrganizationsGetIAMPolicy
, ogipXgafv
, ogipUploadProtocol
, ogipPp
, ogipAccessToken
, ogipUploadType
, ogipPayload
, ogipBearerToken
, ogipResource
, ogipCallback
) where
import Network.Google.Prelude
import Network.Google.ResourceManager.Types
type OrganizationsGetIAMPolicyResource =
"v1beta1" :>
"organizations" :>
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 OrganizationsGetIAMPolicy = OrganizationsGetIAMPolicy
{ _ogipXgafv :: !(Maybe Text)
, _ogipUploadProtocol :: !(Maybe Text)
, _ogipPp :: !Bool
, _ogipAccessToken :: !(Maybe Text)
, _ogipUploadType :: !(Maybe Text)
, _ogipPayload :: !GetIAMPolicyRequest
, _ogipBearerToken :: !(Maybe Text)
, _ogipResource :: !Text
, _ogipCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
organizationsGetIAMPolicy
:: GetIAMPolicyRequest
-> Text
-> OrganizationsGetIAMPolicy
organizationsGetIAMPolicy pOgipPayload_ pOgipResource_ =
OrganizationsGetIAMPolicy
{ _ogipXgafv = Nothing
, _ogipUploadProtocol = Nothing
, _ogipPp = True
, _ogipAccessToken = Nothing
, _ogipUploadType = Nothing
, _ogipPayload = pOgipPayload_
, _ogipBearerToken = Nothing
, _ogipResource = pOgipResource_
, _ogipCallback = Nothing
}
ogipXgafv :: Lens' OrganizationsGetIAMPolicy (Maybe Text)
ogipXgafv
= lens _ogipXgafv (\ s a -> s{_ogipXgafv = a})
ogipUploadProtocol :: Lens' OrganizationsGetIAMPolicy (Maybe Text)
ogipUploadProtocol
= lens _ogipUploadProtocol
(\ s a -> s{_ogipUploadProtocol = a})
ogipPp :: Lens' OrganizationsGetIAMPolicy Bool
ogipPp = lens _ogipPp (\ s a -> s{_ogipPp = a})
ogipAccessToken :: Lens' OrganizationsGetIAMPolicy (Maybe Text)
ogipAccessToken
= lens _ogipAccessToken
(\ s a -> s{_ogipAccessToken = a})
ogipUploadType :: Lens' OrganizationsGetIAMPolicy (Maybe Text)
ogipUploadType
= lens _ogipUploadType
(\ s a -> s{_ogipUploadType = a})
ogipPayload :: Lens' OrganizationsGetIAMPolicy GetIAMPolicyRequest
ogipPayload
= lens _ogipPayload (\ s a -> s{_ogipPayload = a})
ogipBearerToken :: Lens' OrganizationsGetIAMPolicy (Maybe Text)
ogipBearerToken
= lens _ogipBearerToken
(\ s a -> s{_ogipBearerToken = a})
ogipResource :: Lens' OrganizationsGetIAMPolicy Text
ogipResource
= lens _ogipResource (\ s a -> s{_ogipResource = a})
ogipCallback :: Lens' OrganizationsGetIAMPolicy (Maybe Text)
ogipCallback
= lens _ogipCallback (\ s a -> s{_ogipCallback = a})
instance GoogleRequest OrganizationsGetIAMPolicy
where
type Rs OrganizationsGetIAMPolicy = Policy
requestClient OrganizationsGetIAMPolicy{..}
= go _ogipResource _ogipXgafv _ogipUploadProtocol
(Just _ogipPp)
_ogipAccessToken
_ogipUploadType
_ogipBearerToken
_ogipCallback
(Just AltJSON)
_ogipPayload
resourceManagerService
where go
= buildClient
(Proxy :: Proxy OrganizationsGetIAMPolicyResource)
mempty