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 =
]
) explicit_winners
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 = Unsafe.data spoiled in
let spoiled () = "data:application/json," ^ string_of_mj_ballots r.mj_spoiled in
let spoiled = uri_of_string spoiled in
let spoiled =
Eliom_content.Html.F.Raw.a ~a:[a_href spoiled]
[txt (s_ "Spoiled ballots")]
in
let content =
[
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