Proto/Alpha: replace Vote.set
_current_proposal by init
_current_proposal
This commit is contained in:
parent
8777349a19
commit
3c44f1dfba
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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 =
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user