Commit f844192c authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Simplification

parent 3ae20596
......@@ -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 ->
......
......@@ -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 >>
......
......@@ -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
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