Module `EzSessionClient.Make`

type nonrec auth = (S.user_id, S.user_info) EzSession.TYPES.auth
type login_error = [ | EzSession.TYPES.login_error | EzSession.TYPES.connect_error | EzSession.TYPES.logout_error | `Too_many_login_attempts | `Session_expired ]

val connect : EzAPI.base_url -> ?⁠token:string -> (((S.user_id, S.user_info) EzSession.TYPES.auth option, EzSession.TYPES.connect_error) Stdlib.result -> unit) -> unit
val login : ?⁠format:(string -> string) -> EzAPI.base_url -> ?⁠login:string -> ?⁠password:string -> ?⁠foreign:(string * string) -> (((S.user_id, S.user_info) EzSession.TYPES.auth, login_error) Stdlib.result -> unit) -> unit
val logout : EzAPI.base_url -> token:string -> ((bool, EzSession.TYPES.logout_error) Stdlib.result -> unit) -> unit
val disconnected : unit -> unit
val auth_headers : token:string -> (string * string) list
val get : unit -> (S.user_id, S.user_info) EzSession.TYPES.auth option