Source file build_helper.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
open! Base
type t =
| Text of string
| Tuple of t list
| Variant_row of variant_row
| Record of
{ module_ : Module_name.t option
; fields : record_field list
}
| Local_expr of t
and variant_row =
{ name : Variant_row_name.t
; polymorphic : bool
; value : t option
}
and record_field =
{ field_name : Record_field_name.t
; field_value : t
}