Attention une mise à jour du serveur va être effectuée le lundi 17 mai entre 13h et 13h30. Cette mise à jour va générer une interruption du service de quelques minutes.

Commit 83875faf authored by Stephane Glondu's avatar Stephane Glondu

Prettier email for credentials

parent a83faf92
......@@ -697,11 +697,9 @@ let () =
let y = G.(g **~ x) in
G.to_string y
in
lwt () = send_email
"noreply@belenios.org" id
("Your credential for election " ^ uuid_s)
cred
in
let body = "Username: " ^ id ^ "\nCredential: " ^ cred ^ "\n" in
let subject = "Your credential for election " ^ uuid_s in
lwt () = send_email "noreply@belenios.org" id subject body in
return @@ S.add pub_cred accu
) S.empty se.se_voters
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