Commit ec782051 authored by Stephane Glondu's avatar Stephane Glondu

Show 1000 pretty ballots per page

parent 2ded121c
......@@ -1173,7 +1173,7 @@ let () =
lwt res, _ =
W.B.Ballots.fold
(fun h _ (accu, i) ->
if i >= start && i < start+50 then
if i >= start && i < start+1000 then
return (h :: accu, i+1)
else return (accu, i+1)
) ([], 1)
......
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