Source file `set_clause.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open! Base
open! Import

include Keyed_container_clause.Make (struct
  module Submodule_form = struct
    let name = "Set"
    let arity = 0
    let value_types ~type_parameters:_ = []
  end

  module Parameterized_form = struct
    let name = "Set"
    let arity = 2
    let key_type ~type_parameters = Some (List.nth_exn type_parameters 0)
    let value_types ~type_parameters:_ = []
  end
end)