package archetype

  1. Overview
  2. Docs
type location = {
  1. comment : string option;
}
type node = (location, string) Micheline.node
val printable : ?comment:(Micheline.canonical_location -> string option) -> ('a -> 'b) -> 'c Micheline.canonical -> (location, 'b) Micheline.node
val print_comment : Stdlib.Format.formatter -> string -> unit
val print_string : Stdlib.Format.formatter -> string -> unit
val print_annotations : Stdlib.Format.formatter -> string list -> unit
val preformat : (location, string) Micheline.node -> (bool * int * location, string) Micheline.node
val with_unbounded_formatter : Stdlib.Format.formatter -> (Stdlib.Format.formatter -> 'a -> 'b) -> 'c -> unit
val print_expr_unwrapped : Stdlib.Format.formatter -> (location, string) Micheline.node -> unit
val print_expr : Stdlib.Format.formatter -> (location, string) Micheline.node -> unit