25 lines
1.0 KiB
OCaml
25 lines
1.0 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2018. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
module Infix : sig
|
|
|
|
(** Compose functions from right to left. *)
|
|
val (<<) : ('b -> 'c) -> ('a -> 'b) -> 'a -> 'c
|
|
|
|
(** Sequence: [i--j] is the sequence [i;i+1;...;j-1;j] *)
|
|
val (--) : int -> int -> int list
|
|
|
|
end
|
|
|
|
(** Print a paragraph in a box **)
|
|
val display_paragraph: Format.formatter -> string -> unit
|
|
|
|
(** [finalize f g ] ensures g() called after f(), even if exception raised **)
|
|
val finalize: (unit -> 'a) -> (unit -> unit) -> 'a
|