e88e4b0848
Intead of providing a `fitness` function, an economic protocol should now call `Context.set_fitness`. This simplify the shell's code and avoid complexity on protocol change. Previously the fitness of a context produced by the old protocol had to be read by the new protocol. Now, the shell read the context without requesting the help of the economic protocol.
24 lines
948 B
OCaml
24 lines
948 B
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2016. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
let get ctxt =
|
|
Storage.get_fitness ctxt >>= fun fitness ->
|
|
Fitness_repr.to_int64 fitness
|
|
|
|
let set ctxt v =
|
|
Storage.set_fitness ctxt (Fitness_repr.from_int64 v) >>= fun ctxt ->
|
|
Lwt.return ctxt
|
|
|
|
let increase ctxt =
|
|
get ctxt >>=? fun v ->
|
|
set ctxt (Int64.succ v) >>= fun ctxt ->
|
|
return ctxt
|
|
|
|
let init ctxt = set ctxt 0L
|