Simplification

src/web/web_main.ml

@@ -119,7 +119,7 @@ let spool_dir =
 
 let () = Web_site.source_file := source_file
 let () = Web_site.spool_dir := spool_dir
-let () = Web_site.install_authentication !auth_instances
+let () = Web_site_auth.configure !auth_instances
 
 lwt () =
   Lwt_list.iter_s (fun dir ->

src/web/web_site.ml

@@ -224,9 +224,6 @@ lwt () =
     return ()
   ) election_ptable
 
-let install_authentication auth_configs =
-  Web_site_auth.configure auth_configs
-
 let () = Any.register ~service:home
   (fun () () ->
     Eliom_reference.unset cont >>

src/web/web_site.mli

@@ -27,4 +27,3 @@ val spool_dir : string ref
 
 val import_election :
   election_files -> (module REGISTRABLE_ELECTION) option Lwt.t
-val install_authentication : auth_config list -> unit