Simplify some names

src/web/registration.ml

@@ -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

src/web/web_election.ml

@@ -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
 

src/web/web_election.mli

@@ -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)

src/web/web_signatures.mli

@@ -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