relit-reason 0.0.2 · OCaml Package

module Easy_format = Vendored_easy_format

module Comment = Reason_comment

module Range = Reason_location.Range

type break_criterion =

| Never
| IfNeed
| Always
| Always_rec

type separator =

| NoSep
| Sep of string
| SepFinal of string * string

module WhitespaceRegion : sig ... end

* Module concerning info to correctly interleave whitespace above a layout node.

type t =

| SourceMap of Location.t * t
| Sequence of config * t list
| Label of Easy_format.t -> Easy_format.t -> Easy_format.t * t * t
| Easy of Easy_format.t
| Whitespace of WhitespaceRegion.t * t

* These represent "intent to format" the AST, with some parts being annotated * with original source location. The benefit of tracking this in an * intermediate structure, is that we can then interleave comments throughout * the tree before generating the final representation. That prevents the * formatting code from having to thread comments everywhere. * * The final representation is rendered using Easy_format.

and config = {

break : break_criterion;
wrap : string * string;
inline : bool * bool;
sep : separator;
indent : int;
sepLeft : bool;
preSpace : bool;
postSpace : bool;
pad : bool * bool;
listConfigIfCommentsInterleaved : (config -> config) option;
listConfigIfEolCommentsInterleaved : (config -> config) option;

}

val string_of_easy : Easy_format.t -> string

val indent_more : string -> string

val dump_easy : Format.formatter -> Easy_format.t -> unit

val dump : Format.formatter -> t -> unit

val source_map : ?loc:Location.t -> t -> t

val default_list_settings : Easy_format.list_param

val easy_settings_from_config : 
  config ->
  string * string * string * Easy_format.list_param

val to_easy_format : t -> Easy_format.t

val get_location : t -> Location.t option

getLocFromLayout recursively takes the unioned location of its children, * and returns the max one

val is_before : location:Ast_404.Location.t -> t -> bool

val contains_location : t -> location:Ast_404.Location.t -> bool

package relit-reason