Proto/Alpha: replace Vote.set_current_proposal by init_current_proposal

This commit is contained in:
Guillem Rieu 2017-04-14 16:25:01 +02:00 committed by Grégoire Henry
parent 8777349a19
commit 3c44f1dfba
4 changed files with 4 additions and 4 deletions

View File

@ -57,7 +57,7 @@ let start_new_voting_cycle ctxt =
Vote.freeze_listings ctxt >>=? fun ctxt -> Vote.freeze_listings ctxt >>=? fun ctxt ->
return ctxt return ctxt
| Some proposal -> | Some proposal ->
Vote.set_current_proposal ctxt proposal >>=? fun ctxt -> Vote.init_current_proposal ctxt proposal >>=? fun ctxt ->
Vote.freeze_listings ctxt >>=? fun ctxt -> Vote.freeze_listings ctxt >>=? fun ctxt ->
Vote.set_current_period_kind ctxt Testing_vote >>=? fun ctxt -> Vote.set_current_period_kind ctxt Testing_vote >>=? fun ctxt ->
return ctxt return ctxt

View File

@ -410,7 +410,7 @@ module Vote : sig
val get_current_proposal: val get_current_proposal:
context -> proposal tzresult Lwt.t context -> proposal tzresult Lwt.t
val set_current_proposal: val init_current_proposal:
context -> proposal -> context tzresult Lwt.t context -> proposal -> context tzresult Lwt.t
val clear_current_proposal: val clear_current_proposal:
context -> context tzresult Lwt.t context -> context tzresult Lwt.t

View File

@ -77,7 +77,7 @@ let get_current_quorum = Storage.Vote.Current_quorum.get
let set_current_quorum = Storage.Vote.Current_quorum.set let set_current_quorum = Storage.Vote.Current_quorum.set
let get_current_proposal = Storage.Vote.Current_proposal.get let get_current_proposal = Storage.Vote.Current_proposal.get
let set_current_proposal = Storage.Vote.Current_proposal.set let init_current_proposal = Storage.Vote.Current_proposal.init
let clear_current_proposal = Storage.Vote.Current_proposal.delete let clear_current_proposal = Storage.Vote.Current_proposal.delete
let init ctxt = let init ctxt =

View File

@ -45,7 +45,7 @@ val set_current_period_kind:
val get_current_proposal: val get_current_proposal:
Storage.t -> Protocol_hash.t tzresult Lwt.t Storage.t -> Protocol_hash.t tzresult Lwt.t
val set_current_proposal: val init_current_proposal:
Storage.t -> Protocol_hash.t -> Storage.t tzresult Lwt.t Storage.t -> Protocol_hash.t -> Storage.t tzresult Lwt.t
val clear_current_proposal: Storage.t -> Storage.t tzresult Lwt.t val clear_current_proposal: Storage.t -> Storage.t tzresult Lwt.t