14 lines
763 B
OCaml
14 lines
763 B
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* 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)
|