sig module type PROFILE = sig val mutual : bool val hash_function : Netsys_digests.iana_hash_fn val test_nonce : string option end module Make_SCRAM : functor (P : PROFILE) -> Nethttp.HTTP_CLIENT_MECHANISM end