1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
open! Core
open! Import
module type Model = Module_types.Model
module type Action = Module_types.Action
module type Enum = Module_types.Enum
module type Comparator = Module_types.Comparator
type ('k, 'cmp) comparator = ('k, 'cmp) Module_types.comparator
module Effect = Effect
module Private = struct
module Computation = Computation
module Environment = Environment
module Apply_action = Apply_action
module Meta = Meta
module Snapshot = Snapshot
module Lifecycle = Lifecycle
module Value = Value
module Path = Path
module Node_path = Node_path
module Graph_info = Graph_info
module Instrumentation = Instrumentation
module Flatten_values = Flatten_values
let eval = Eval.eval
include Proc.Private
let path = Proc.path
end
include (Proc : module type of Proc with module Private := Proc.Private)
module Debug = struct
let to_dot c = To_dot.to_dot (Private.reveal_computation c)
let instrument_computation c ~start_timer ~stop_timer =
Instrumentation.instrument_packed
(Private.reveal_computation c)
~start_timer
~stop_timer
;;
let enable_incremental_annotations = Annotate_incr.enable
let disable_incremental_annotations = Annotate_incr.disable
end
module Arrow_deprecated = struct
include Legacy_api
end