balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Alpha/Vote: faster refusal of too many proposals

Browse Source
This commit is contained in:
Marco Stronati 2018-11-23 17:11:00 +01:00 committed by Pierre Boutillier
parent 30aa2ec204
commit 065d629e7c
No known key found for this signature in database
GPG Key ID: C2F73508B56A193C
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/proto_alpha/lib_protocol/src/amendment.ml
View File

@ -199,6 +199,16 @@ let () =
(function Empty_proposal -> Some () | _ -> None)
(fun () -> Empty_proposal)
(* @return [true] if [List.length l] > [n] w/o computing length *)
let rec longer_than l n =
if Compare.Int.(n < 0) then assert false else
match l with
| [] -> false
| _ :: rest ->
if Compare.Int.(n = 0) then true
else (* n > 0 *)
longer_than rest (n-1)
let record_proposals ctxt delegate proposals =
begin match proposals with
| [] -> fail Empty_proposal
@ -208,14 +218,15 @@ let record_proposals ctxt delegate proposals =
| Proposal ->
Vote.in_listings ctxt delegate >>= fun in_listings ->
if in_listings then
Vote.recorded_proposal_count_for_delegate ctxt delegate >>=? fun count ->
fail_when
(longer_than proposals (Constants.max_proposals_per_delegate - count))
Too_many_proposals >>=? fun () ->
fold_left_s
(fun ctxt proposal ->
Vote.record_proposal ctxt proposal delegate)
ctxt proposals >>=? fun ctxt ->
Vote.recorded_proposal_count_for_delegate ctxt delegate >>=? fun count ->
if Compare.Int.(count > Constants.max_proposals_per_delegate) then
fail Too_many_proposals
else return ctxt
return ctxt
else
fail Unauthorized_proposal
| Testing_vote | Testing | Promotion_vote ->