2017-09-14 12:26:05 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2017-09-14 12:26:05 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
|
|
type t
|
|
|
|
|
|
|
|
|
|
type error += Invalid_data_dir_version of t * t
|
|
|
|
|
type error += Could_not_read_data_dir_version of string
|
|
|
|
|
|
|
|
|
|
val data_version : t
|
|
|
|
|
|
|
|
|
|
val pp : Format.formatter -> t -> unit
|
|
|
|
|
|
|
|
|
|
val version_encoding : t Data_encoding.encoding
|
|
|
|
|
|
|
|
|
|
val ensure_data_dir : string -> unit tzresult Lwt.t
|
