Parameter `Make.1-S`

module SessionArg : EzSession.TYPES.SessionArg

module SessionStore : SessionStore with type user_id = SessionArg.user_id

val find_user : login:string -> (string option * SessionArg.user_id * SessionArg.user_info) option Lwt.t
val check_foreign : origin:string -> token:string -> (string, int * string option) Stdlib.result Lwt.t
val register_foreign : origin:string -> token:string -> (SessionArg.user_id * SessionArg.user_info option, int * string option) Stdlib.result Lwt.t