Commit 6e671d26 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Add placeholder for UUID in template

parent 89ad4808
...@@ -34,6 +34,10 @@ let y = KG.combine public_keys ...@@ -34,6 +34,10 @@ let y = KG.combine public_keys
let {g; p; q} = G.group let {g; p; q} = G.group
let uuid_of_string x = match Uuidm.of_string x with
| Some y -> y
| None -> invalid_arg "invalid UUID"
let params = { let params = {
e_description = "This is a test election."; e_description = "This is a test election.";
e_name = "Test election"; e_name = "Test election";
...@@ -59,7 +63,7 @@ let params = { ...@@ -59,7 +63,7 @@ let params = {
q_question = "Question 3?"; q_question = "Question 3?";
}; };
|]; |];
e_uuid = Uuidm.create `V4; e_uuid = uuid_of_string "00000000-0000-0000-0000-000000000000";
e_short_name = "test"; e_short_name = "test";
};; };;
......
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