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