Commit d4eb59f3 authored by Stephane Glondu's avatar Stephane Glondu Committed by Stéphane Glondu

Avoid one use of Unsafe.data

parent 842fb751
Pipeline #181183 passed with stage
in 34 minutes and 13 seconds
...@@ -882,9 +882,12 @@ let majority_judgment q r = ...@@ -882,9 +882,12 @@ let majority_judgment q r =
] ]
) explicit_winners ) explicit_winners
in in
let spoiled = "data:application/json," ^ string_of_mj_ballots r.mj_spoiled in let spoiled () = "data:application/json," ^ string_of_mj_ballots r.mj_spoiled in
let spoiled = "<a href=\"" ^ spoiled ^ "\">" ^ s_ "Spoiled ballots" ^ "</a>" in let spoiled = uri_of_string spoiled in
let spoiled = Unsafe.data spoiled in let spoiled =
Eliom_content.Html.F.Raw.a ~a:[a_href spoiled]
[txt (s_ "Spoiled ballots")]
in
let content = let content =
[ [
div [ div [
......
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