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. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
|
|
type t
|
|
|
|
|
type raw_level = t
|
|
|
|
|
val encoding: raw_level Data_encoding.t
|
|
|
|
|
val arg: raw_level RPC.Arg.arg
|
|
|
|
|
val pp: Format.formatter -> raw_level -> unit
|
|
|
|
|
include Compare.S with type t := raw_level
|
|
|
|
|
|
|
|
|
|
val to_int32: raw_level -> int32
|
|
|
|
|
val of_int32_exn: int32 -> raw_level
|
|
|
|
|
|
2017-02-16 00:18:48 +04:00
|
|
|
val diff: raw_level -> raw_level -> int32
|
|
|
|
|
|
2016-09-08 21:13:10 +04:00
|
|
|
val root: raw_level
|
|
|
|
|
|
|
|
|
|
val succ: raw_level -> raw_level
|
|
|
|
|
val pred: raw_level -> raw_level option
|
