balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
2e96a1377e
ligo/src/proto/alpha/fitness_storage.ml

24 lines
948 B
OCaml
Raw Normal View History

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. *)
(* *)
(**************************************************************************)
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 get ctxt =
Storage.get_fitness ctxt >>= fun fitness ->
Fitness_repr.to_int64 fitness
First public release
2016-09-08 21:13:10 +04:00
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 set ctxt v =
Storage.set_fitness ctxt (Fitness_repr.from_int64 v) >>= fun ctxt ->
Lwt.return ctxt
First public release
2016-09-08 21:13:10 +04:00
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 =
get ctxt >>=? fun v ->
set ctxt (Int64.succ v) >>= fun ctxt ->
return ctxt
First public release
2016-09-08 21:13:10 +04:00
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 init ctxt = set ctxt 0L
Reference in New Issue Copy Permalink