CreateAuthenticationProfile (smaws-clients.Smaws_Client_Redshift.CreateAuthenticationProfile)

val error_to_string : 
  [ Smaws_Lib.Protocols.AwsQuery.error
  | `AuthenticationProfileAlreadyExistsFault of
    Types.authentication_profile_already_exists_fault
  | `AuthenticationProfileQuotaExceededFault of
    Types.authentication_profile_quota_exceeded_fault
  | `InvalidAuthenticationProfileRequestFault of
    Types.invalid_authentication_profile_request_fault ] ->
  string

val request : 
  'http_type Smaws_Lib.Context.t ->
  Types.create_authentication_profile_message ->
  (Types.create_authentication_profile_result,
    [> Smaws_Lib.Protocols.AwsQuery.error
    | `AuthenticationProfileAlreadyExistsFault of
      Types.authentication_profile_already_exists_fault
    | `AuthenticationProfileQuotaExceededFault of
      Types.authentication_profile_quota_exceeded_fault
    | `InvalidAuthenticationProfileRequestFault of
      Types.invalid_authentication_profile_request_fault ])
    Stdlib.result

val request_with_metadata : 
  'http_type Smaws_Lib.Context.t ->
  Types.create_authentication_profile_message ->
  (Types.create_authentication_profile_result Smaws_Lib.Response.t,
    [> Smaws_Lib.Protocols.AwsQuery.error
    | `AuthenticationProfileAlreadyExistsFault of
      Types.authentication_profile_already_exists_fault
    | `AuthenticationProfileQuotaExceededFault of
      Types.authentication_profile_quota_exceeded_fault
    | `InvalidAuthenticationProfileRequestFault of
      Types.invalid_authentication_profile_request_fault ]
    * Smaws_Lib.Response.metadata)
    Stdlib.result