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. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2017-02-24 20:17:53 +04:00
|
|
|
open Hash
|
2017-04-19 21:21:23 +04:00
|
|
|
open Tezos_data
|
2017-02-24 20:17:53 +04:00
|
|
|
|
2016-09-08 21:13:10 +04:00
|
|
|
(** Low-level part of the [Updater]. *)
|
|
|
|
|
2016-10-25 21:00:03 +04:00
|
|
|
module Meta : sig
|
|
|
|
val to_file: Lwt_io.file_name -> ?hash:Protocol_hash.t -> string list -> unit
|
|
|
|
val of_file: Lwt_io.file_name -> Protocol_hash.t option * string list
|
|
|
|
end
|
|
|
|
|
2017-04-19 21:21:23 +04:00
|
|
|
val read_dir: Lwt_io.file_name -> Protocol.t
|
2016-09-08 21:13:10 +04:00
|
|
|
|
|
|
|
val main: unit -> unit
|