Une MAJ de sécurité est nécessaire sur notre version actuelle. Elle sera effectuée lundi 02/08 entre 12h30 et 13h. L'interruption de service devrait durer quelques minutes (probablement moins de 5 minutes).

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

Remove unused module instantiations

parent 4233dd1d
......@@ -177,11 +177,6 @@ let validate_election uuid se =
let%lwt () = create_file "voters.txt" (fun x -> x.sv_id) se.se_voters in
let%lwt () = create_file "metadata.json" string_of_metadata [metadata] in
let%lwt () = create_file "election.json" (fun x -> x) [raw_election] in
(* construct Web_election instance *)
let election = Election.of_string raw_election in
let module W = (val Election.get_group election) in
let module E = Election.Make (W) (LwtRandom) in
let module B = Web_election.Make (E) in
(* initialize credentials *)
let%lwt () =
let fname = !Web_config.spool_dir / uuid_s / "public_creds.txt" in
......
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