Warning: Reason support is experimental. We are looking for beta-tester and contributors.

Module User_external_auth

module User_external_auth : sig..end

Author(s): Boris Yakobowski

val (>>=) : 'a Lwt.t -> ('a -> 'b Lwt.t) -> 'b Lwt.t
type external_auth = {
  ext_auth_authenticate: name:string -> pwd:string -> unit Lwt.t;  ext_user_exists: string -> bool Lwt.t;}
val iter_external_auths : (external_auth -> bool Lwt.t) -> unit Lwt.t

Function which iter on external auths, call the function f for each method while there is a method and raises BadUser if no method matches