Source file set_clause.ml

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)