Smaws_Client_Redshift.AuthorizeEndpointAccessGrants access to a cluster.
val error_to_string :
[ Smaws_Lib.Protocols.AwsQuery.error
| `ClusterNotFoundFault of Types.cluster_not_found_fault
| `EndpointAuthorizationAlreadyExistsFault of
Types.endpoint_authorization_already_exists_fault
| `EndpointAuthorizationsPerClusterLimitExceededFault of
Types.endpoint_authorizations_per_cluster_limit_exceeded_fault
| `InvalidAuthorizationStateFault of Types.invalid_authorization_state_fault
| `InvalidClusterStateFault of Types.invalid_cluster_state_fault
| `UnsupportedOperationFault of Types.unsupported_operation_fault ] ->
stringval request :
'http_type Smaws_Lib.Context.t ->
Types.authorize_endpoint_access_message ->
(Types.endpoint_authorization,
[> Smaws_Lib.Protocols.AwsQuery.error
| `ClusterNotFoundFault of Types.cluster_not_found_fault
| `EndpointAuthorizationAlreadyExistsFault of
Types.endpoint_authorization_already_exists_fault
| `EndpointAuthorizationsPerClusterLimitExceededFault of
Types.endpoint_authorizations_per_cluster_limit_exceeded_fault
| `InvalidAuthorizationStateFault of
Types.invalid_authorization_state_fault
| `InvalidClusterStateFault of Types.invalid_cluster_state_fault
| `UnsupportedOperationFault of Types.unsupported_operation_fault ])
Stdlib.resultval request_with_metadata :
'http_type Smaws_Lib.Context.t ->
Types.authorize_endpoint_access_message ->
(Types.endpoint_authorization Smaws_Lib.Response.t,
[> Smaws_Lib.Protocols.AwsQuery.error
| `ClusterNotFoundFault of Types.cluster_not_found_fault
| `EndpointAuthorizationAlreadyExistsFault of
Types.endpoint_authorization_already_exists_fault
| `EndpointAuthorizationsPerClusterLimitExceededFault of
Types.endpoint_authorizations_per_cluster_limit_exceeded_fault
| `InvalidAuthorizationStateFault of
Types.invalid_authorization_state_fault
| `InvalidClusterStateFault of Types.invalid_cluster_state_fault
| `UnsupportedOperationFault of Types.unsupported_operation_fault ]
* Smaws_Lib.Response.metadata)
Stdlib.result