sig
val scram_mech : Netgssapi.oid
class type client_key_ring =
object
method default_user_name : string option
method password_of_user_name : string -> string
end
class type server_key_verifier =
object method scram_credentials : string -> string * string * int end
class scram_gss_api :
?client_key_ring:Netmech_scram_gssapi.client_key_ring ->
?server_key_verifier:Netmech_scram_gssapi.server_key_verifier ->
Netmech_scram.profile -> Netgssapi.gss_api
end
