ligo/src/proto/alpha/fitness_storage.ml

(**************************************************************************)
(*                                                                        *)
(*    Copyright (c) 2014 - 2016.                                          *)
(*    Dynamic Ledger Solutions, Inc. <contact@tezos.com>                  *)
(*                                                                        *)
(*    All rights reserved. No warranty, explicit or implicit, provided.   *)
(*                                                                        *)
(**************************************************************************)

let current = Storage.current_fitness
let increase ctxt =
  let fitness = current ctxt in
  Storage.set_current_fitness ctxt (Int64.succ fitness)
First public release 2016-09-08 21:13:10 +04:00			`(**************************************************************************)`
			`(* *)`
			`(* Copyright (c) 2014 - 2016. *)`
			`(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)`
			`(* *)`
			`(* All rights reserved. No warranty, explicit or implicit, provided. *)`
			`(* *)`
			`(**************************************************************************)`

Proto: explicit fitness/timestamp in the signature This remove the data fomr the context where they "duplicate" the block header. 2017-04-10 14:14:11 +04:00			`let current = Storage.current_fitness`
Shell: `Proto.fitness` -> `Context.set_fitness`. 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. 2017-02-25 21:01:27 +04:00			`let increase ctxt =`
Proto: explicit fitness/timestamp in the signature This remove the data fomr the context where they "duplicate" the block header. 2017-04-10 14:14:11 +04:00			`let fitness = current ctxt in`
			`Storage.set_current_fitness ctxt (Int64.succ fitness)`