26 lines
649 B
OCaml
26 lines
649 B
OCaml
|
open Err
|
||
|
|
open Types
|
||
|
|
|
||
|
|
val find_user : user_id -> user option result
|
||
|
|
|
||
|
|
val find_user_of_nick : v_string -> user option result
|
||
|
|
|
||
|
|
val find_user_of_email : v_string -> user option result
|
||
|
|
|
||
|
|
val find_user_private : user_id -> User_private.t option result
|
||
|
|
|
||
|
|
val get_password_hash : user_id -> string result
|
||
|
|
|
||
|
|
val update_password_hash : user_id -> string -> unit result
|
||
|
|
|
||
|
|
val update_nick : user_id -> v_string -> unit result
|
||
|
|
|
||
|
|
val update_bio : user_id -> v_string -> unit result
|
||
|
|
|
||
|
|
val update_email : user_id -> v_string -> unit result
|
||
|
|
|
||
|
|
val delete_user : user_id -> unit result
|
||
|
|
|
||
|
|
val add_user :
|
||
|
|
email:v_string -> nick:v_string -> password_hash:string -> unit result
|