{-# 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.Compute.NetworkEndpointGroups.TestIAMPermissions
(
NetworkEndpointGroupsTestIAMPermissionsResource
, networkEndpointGroupsTestIAMPermissions
, NetworkEndpointGroupsTestIAMPermissions
, negtipProject
, negtipZone
, negtipPayload
, negtipResource
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type NetworkEndpointGroupsTestIAMPermissionsResource
=
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"zones" :>
Capture "zone" Text :>
"networkEndpointGroups" :>
Capture "resource" Text :>
"testIamPermissions" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] TestPermissionsRequest :>
Post '[JSON] TestPermissionsResponse
data NetworkEndpointGroupsTestIAMPermissions =
NetworkEndpointGroupsTestIAMPermissions'
{ _negtipProject :: !Text
, _negtipZone :: !Text
, _negtipPayload :: !TestPermissionsRequest
, _negtipResource :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
networkEndpointGroupsTestIAMPermissions
:: Text
-> Text
-> TestPermissionsRequest
-> Text
-> NetworkEndpointGroupsTestIAMPermissions
networkEndpointGroupsTestIAMPermissions pNegtipProject_ pNegtipZone_ pNegtipPayload_ pNegtipResource_ =
NetworkEndpointGroupsTestIAMPermissions'
{ _negtipProject = pNegtipProject_
, _negtipZone = pNegtipZone_
, _negtipPayload = pNegtipPayload_
, _negtipResource = pNegtipResource_
}
negtipProject :: Lens' NetworkEndpointGroupsTestIAMPermissions Text
negtipProject
= lens _negtipProject
(\ s a -> s{_negtipProject = a})
negtipZone :: Lens' NetworkEndpointGroupsTestIAMPermissions Text
negtipZone
= lens _negtipZone (\ s a -> s{_negtipZone = a})
negtipPayload :: Lens' NetworkEndpointGroupsTestIAMPermissions TestPermissionsRequest
negtipPayload
= lens _negtipPayload
(\ s a -> s{_negtipPayload = a})
negtipResource :: Lens' NetworkEndpointGroupsTestIAMPermissions Text
negtipResource
= lens _negtipResource
(\ s a -> s{_negtipResource = a})
instance GoogleRequest
NetworkEndpointGroupsTestIAMPermissions
where
type Rs NetworkEndpointGroupsTestIAMPermissions =
TestPermissionsResponse
type Scopes NetworkEndpointGroupsTestIAMPermissions =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute",
"https://www.googleapis.com/auth/compute.readonly"]
requestClient
NetworkEndpointGroupsTestIAMPermissions'{..}
= go _negtipProject _negtipZone _negtipResource
(Just AltJSON)
_negtipPayload
computeService
where go
= buildClient
(Proxy ::
Proxy
NetworkEndpointGroupsTestIAMPermissionsResource)
mempty