2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
(** Low-level part of the [Updater]. *)
|
|
|
|
|
2016-10-25 21:00:03 +04:00
|
|
|
module Meta : sig
|
2017-10-09 12:55:12 +04:00
|
|
|
val to_file:
|
|
|
|
Lwt_io.file_name ->
|
|
|
|
?hash:Protocol_hash.t ->
|
|
|
|
?env_version:Protocol.env_version ->
|
|
|
|
string list -> unit
|
|
|
|
val of_file:
|
|
|
|
Lwt_io.file_name ->
|
|
|
|
Protocol_hash.t option * Protocol.env_version option * string list
|
2016-10-25 21:00:03 +04:00
|
|
|
end
|
|
|
|
|
2017-10-09 12:55:12 +04:00
|
|
|
val read_dir: Lwt_io.file_name -> Protocol_hash.t * Protocol.t
|
2016-09-08 21:13:10 +04:00
|
|
|
|
|
|
|
val main: unit -> unit
|