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

Simplify some names

parent 30bd9fca
......@@ -141,10 +141,10 @@ let process_datadir dir =
return (SSet.add c accu)
)
in
let featured_p = item.datadir_featured in
let election = Web_election.make_web_election
let featured = item.datadir_featured in
let election = Web_election.make
raw_election metadata
~featured_p
~featured
~params_fname
~public_keys_fname
in
......@@ -172,7 +172,7 @@ let get_election_by_uuid x =
let get_featured_elections () =
EMap.fold (fun uuid e res ->
let module X = (val e : WEB_ELECTION) in
if X.featured_p then
if X.featured then
e :: res
else res
) election_table [] |> return
......
......@@ -44,7 +44,7 @@ let can_vote m user =
| None -> false (* voters must log in *)
| Some u -> check_acl (Some acls) u.user_user
let make_web_election raw_election metadata ~featured_p ~params_fname ~public_keys_fname =
let make raw_election metadata ~featured ~params_fname ~public_keys_fname =
let e_fingerprint = sha256_b64 raw_election in
let wrapped_params = Serializable_j.params_of_string
......@@ -64,7 +64,7 @@ let make_web_election raw_election metadata ~featured_p ~params_fname ~public_ke
let public_keys_fname = public_keys_fname
let params_fname = params_fname
let featured_p = featured_p
let featured = featured
module B : WEB_BALLOT_BOX = struct
......
......@@ -24,10 +24,10 @@ open Serializable_t
open Web_serializable_t
open Web_signatures
val make_web_election :
val make :
string ->
metadata ->
featured_p:bool ->
featured:bool ->
params_fname:string ->
public_keys_fname:string ->
(module WEB_ELECTION)
......@@ -270,7 +270,7 @@ module type WEB_ELECTION = sig
val election : G.t election
val metadata : metadata
val featured_p : bool
val featured : bool
val params_fname : string
val public_keys_fname : string
......
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