Up

module Configuration

: sig

#

type t = {

# output	: Patdiff_core.Output.t	;
# rules	: Patdiff_core.Format.Rules.t	;
# ext_cmp	: string option	;
# produce_unified_lines	: bool	;
# unrefined	: bool	;
# keep_ws	: bool	;
# split_long_lines	: bool	;
# context	: int	;
# shallow	: bool	;
# quiet	: bool	;
# double_check	: bool	;
# mask_uniques	: bool	;
# old_alt	: string option	;
# new_alt	: string option	;

}

#

val load : ?quiet_errors:bool -> string -> t option

#

val dark_bg : t Core.Std.Lazy.t

#

val light_bg : t Core.Std.Lazy.t

#

module Config : sig

#

type t

#

val t_of_sexp : Sexplib.Sexp.t -> t

#

val sexp_of_t : t -> Sexplib.Sexp.t

end

#

module Old_config : sig

#

type t

#

val to_new_config : t -> Config.t

#

val t_of_sexp : Sexplib.Sexp.t -> t

#

val sexp_of_t : t -> Sexplib.Sexp.t

end

#

val parse : Config.t -> t

end