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. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
|
|
type t
|
|
|
|
|
type cycle = t
|
|
|
|
|
include Compare.S with type t := t
|
|
|
|
|
val encoding: cycle Data_encoding.t
|
|
|
|
|
val arg: cycle RPC.Arg.arg
|
|
|
|
|
val pp: Format.formatter -> cycle -> unit
|
|
|
|
|
|
|
|
|
|
val root: cycle
|
|
|
|
|
val pred: cycle -> cycle option
|
|
|
|
|
val succ: cycle -> cycle
|
|
|
|
|
|
|
|
|
|
val to_int32: cycle -> int32
|
|
|
|
|
val of_int32_exn: int32 -> cycle
|
