2016-11-29 00:54:32 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2018-02-06 00:17:03 +04:00
|
|
|
(* Copyright (c) 2014 - 2018. *)
|
2016-11-29 00:54:32 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
type t =
|
|
|
|
| Not_running
|
|
|
|
| Forking of {
|
|
|
|
protocol: Protocol_hash.t ;
|
|
|
|
expiration: Time.t ;
|
|
|
|
}
|
|
|
|
| Running of {
|
|
|
|
net_id: Net_id.t ;
|
|
|
|
genesis: Block_hash.t ;
|
|
|
|
protocol: Protocol_hash.t ;
|
|
|
|
expiration: Time.t ;
|
|
|
|
}
|
2016-11-29 00:54:32 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
val encoding: t Data_encoding.t
|
2016-11-29 00:54:32 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
val pp : Format.formatter -> t -> unit
|