module Network.Google.Resource.PubSub.Projects.Topics.TestIAMPermissions
(
ProjectsTopicsTestIAMPermissionsResource
, projectsTopicsTestIAMPermissions
, ProjectsTopicsTestIAMPermissions
, pttipXgafv
, pttipUploadProtocol
, pttipPp
, pttipAccessToken
, pttipUploadType
, pttipPayload
, pttipBearerToken
, pttipResource
, pttipCallback
) where
import Network.Google.Prelude
import Network.Google.PubSub.Types
type ProjectsTopicsTestIAMPermissionsResource =
"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
data ProjectsTopicsTestIAMPermissions = ProjectsTopicsTestIAMPermissions
{ _pttipXgafv :: !(Maybe Text)
, _pttipUploadProtocol :: !(Maybe Text)
, _pttipPp :: !Bool
, _pttipAccessToken :: !(Maybe Text)
, _pttipUploadType :: !(Maybe Text)
, _pttipPayload :: !TestIAMPermissionsRequest
, _pttipBearerToken :: !(Maybe Text)
, _pttipResource :: !Text
, _pttipCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
projectsTopicsTestIAMPermissions
:: TestIAMPermissionsRequest
-> Text
-> ProjectsTopicsTestIAMPermissions
projectsTopicsTestIAMPermissions pPttipPayload_ pPttipResource_ =
ProjectsTopicsTestIAMPermissions
{ _pttipXgafv = Nothing
, _pttipUploadProtocol = Nothing
, _pttipPp = True
, _pttipAccessToken = Nothing
, _pttipUploadType = Nothing
, _pttipPayload = pPttipPayload_
, _pttipBearerToken = Nothing
, _pttipResource = pPttipResource_
, _pttipCallback = Nothing
}
pttipXgafv :: Lens' ProjectsTopicsTestIAMPermissions (Maybe Text)
pttipXgafv
= lens _pttipXgafv (\ s a -> s{_pttipXgafv = a})
pttipUploadProtocol :: Lens' ProjectsTopicsTestIAMPermissions (Maybe Text)
pttipUploadProtocol
= lens _pttipUploadProtocol
(\ s a -> s{_pttipUploadProtocol = a})
pttipPp :: Lens' ProjectsTopicsTestIAMPermissions Bool
pttipPp = lens _pttipPp (\ s a -> s{_pttipPp = a})
pttipAccessToken :: Lens' ProjectsTopicsTestIAMPermissions (Maybe Text)
pttipAccessToken
= lens _pttipAccessToken
(\ s a -> s{_pttipAccessToken = a})
pttipUploadType :: Lens' ProjectsTopicsTestIAMPermissions (Maybe Text)
pttipUploadType
= lens _pttipUploadType
(\ s a -> s{_pttipUploadType = a})
pttipPayload :: Lens' ProjectsTopicsTestIAMPermissions TestIAMPermissionsRequest
pttipPayload
= lens _pttipPayload (\ s a -> s{_pttipPayload = a})
pttipBearerToken :: Lens' ProjectsTopicsTestIAMPermissions (Maybe Text)
pttipBearerToken
= lens _pttipBearerToken
(\ s a -> s{_pttipBearerToken = a})
pttipResource :: Lens' ProjectsTopicsTestIAMPermissions Text
pttipResource
= lens _pttipResource
(\ s a -> s{_pttipResource = a})
pttipCallback :: Lens' ProjectsTopicsTestIAMPermissions (Maybe Text)
pttipCallback
= lens _pttipCallback
(\ s a -> s{_pttipCallback = a})
instance GoogleRequest
ProjectsTopicsTestIAMPermissions where
type Rs ProjectsTopicsTestIAMPermissions =
TestIAMPermissionsResponse
requestClient ProjectsTopicsTestIAMPermissions{..}
= go _pttipResource _pttipXgafv _pttipUploadProtocol
(Just _pttipPp)
_pttipAccessToken
_pttipUploadType
_pttipBearerToken
_pttipCallback
(Just AltJSON)
_pttipPayload
pubSubService
where go
= buildClient
(Proxy ::
Proxy ProjectsTopicsTestIAMPermissionsResource)
mempty