Source file bonsai.ml

module Stable = struct
  module Private = struct
    module Node_path = Node_path.Stable
    module Graph_info = Graph_info.Stable
  end
end

open! Core
open! Import

module Private = struct
  module Computation = Computation
  module Environment = Environment
  module Input = Input
  module Meta = Meta
  module Snapshot = Snapshot
  module Lifecycle = Lifecycle
  module Value = Value
  module Path = Path
  module Action = Action
  module Stabilization_tracker = Stabilization_tracker
  module Node_path = Node_path
  module Graph_info = Graph_info
  module Instrumentation = Instrumentation
  module Flatten_values = Flatten_values
  module Constant_fold = Constant_fold
  module Skeleton = Skeleton
  module Transform = Transform
  module Linter = Linter
  module Trampoline = Trampoline
  module Annotate_incr = Annotate_incr

  let path = Proc_layer2.path
  let gather = Eval.gather
  let pre_process = Pre_process.pre_process
  let reveal_value = Cont.Conv.reveal_value
  let conceal_value = Cont.Conv.conceal_value
  let top_level_handle = Cont.Conv.top_level_handle
  let handle = Cont.Conv.handle
  let perform = Cont.Conv.perform
  let set_perform_on_exception = Cont.Expert.For_bonsai_internal.set_perform_on_exception
end

include Proc_layer2

module For_open = struct
  module Computation = Computation
  module Effect = Effect
  module Value = Value
end

module Cont = Cont

module Arrow_deprecated = struct
  include Legacy_api
end