diff options
Diffstat (limited to 'lib/auth.ml')
| -rw-r--r-- | lib/auth.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/auth.ml b/lib/auth.ml index 450c89b..c1486d6 100644 --- a/lib/auth.ml +++ b/lib/auth.ml @@ -4,9 +4,11 @@ type auth_mechanism = PLAIN [@@deriving show { with_path = false }] type sasl_error = | NotAuthorized + | MalformedRequest let read_sasl_error = function | "not-authorized" -> NotAuthorized + | "malformed-request" -> MalformedRequest | _ -> failwith "Unsupported SASL error returned by the server." type sasl_auth = (string option, sasl_error * (string * string) option) result |