Module Data.Fragment_trie

module type Suffix_tree = sig ... end
type t
include Sexplib0.Sexpable.S with type t := t
include Sexplib0.Sexpable.Of_sexp with type t := t
val t_of_sexp : Sexplib0.Sexp.t -> t
include Sexplib0.Sexpable.Sexp_of with type t := t
val sexp_of_t : t -> Sexplib0.Sexp.t
val metadata : t -> Metadata.t
val empty_fragment : t -> Fragment.t
val find : t -> Backtrace.t -> Fragment.t option
val find_rev : t -> Backtrace.Reversed.t -> Fragment.t option
val find_singleton : t -> Location.t -> Fragment.t option
val find_iterator : t -> Fragment.Iterator.Trace.t -> Fragment.Iterator.t option
val deep_fold_callers : t -> init:'a -> f:(backtrace:Backtrace.t -> fragment:Fragment.t -> 'a -> 'a) -> 'a
val deep_fold_callees : t -> init:'a -> f:(backtrace_rev:Backtrace.Reversed.t -> fragment:Fragment.t -> 'a -> 'a) -> 'a
val fold_singletons : t -> init:'a -> f:(location:Location.t -> fragment:Fragment.t -> 'a -> 'a) -> 'a
module Serialized : sig ... end
module Debug : sig ... end
val of_suffix_tree : (module Suffix_tree with type t = 'tree) -> 'tree -> total_allocations:Core.Byte_units.t -> t
val allocator_fragment : t -> Fragment.t
val toplevel_fragment : t -> Fragment.t
val total_allocations : t -> Core.Byte_units.t