Commit 3a1cf5fd authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Sort ballots by uppercased hash

parent e7d206f9
......@@ -928,8 +928,11 @@ let pretty_ballots w hashes () =
let params = W.election.e_params in
let title = params.e_name ^ " — Accepted ballots" in
let nballots = ref 0 in
let hashes =
List.sort (fun a b -> String.(compare (uppercase a) (uppercase b))) hashes
in
let ballots =
List.rev_map
List.map
(fun h ->
incr nballots;
li
......
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