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
  }