Commit 1ecdbae5 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Remove unused function

parent 025c1387
......@@ -72,8 +72,6 @@ let get_password_db_fname () =
| _ :: xs -> find xs
in find !Web_config.site_auth_config
let allowsignups () = get_password_db_fname () <> None
let password_db_mutex = Lwt_mutex.create ()
let do_add_account ~db_fname ~username ~password ~email () =
......
......@@ -23,9 +23,6 @@ open Web_common
(** Password-protected admin account management *)
(** Returns [true] if server configuration allows account creation. *)
val allowsignups : unit -> bool
val add_account : username:string -> password:string -> email:string -> (unit, add_account_error) result Lwt.t
val change_password : username:string -> password:string -> (unit, string) result Lwt.t
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment