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

Remove almost useless Services.preapply_uuid

parent 74a6f533
...@@ -59,5 +59,3 @@ let string_of_election_file = function ...@@ -59,5 +59,3 @@ let string_of_election_file = function
| ESCreds -> "public_creds.txt" | ESCreds -> "public_creds.txt"
| ESBallots -> "ballots.jsons" | ESBallots -> "ballots.jsons"
| ESRecords -> "records" | ESRecords -> "records"
let preapply_uuid s e = Eliom_service.preapply s e.e_uuid
...@@ -270,11 +270,11 @@ module Make (S : ALL_SERVICES) : TEMPLATES = struct ...@@ -270,11 +270,11 @@ module Make (S : ALL_SERVICES) : TEMPLATES = struct
div [ div [
div [ div [
make_button make_button
~service:(Services.preapply_uuid S.election_vote params) ~service:(Eliom_service.preapply S.election_vote params.e_uuid)
"Go to the booth"; "Go to the booth";
pcdata " or "; pcdata " or ";
make_button make_button
~service:(Services.preapply_uuid S.election_cast params) ~service:(Eliom_service.preapply S.election_cast params.e_uuid)
"Submit a raw ballot"; "Submit a raw ballot";
]; ];
]; ];
......
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