Source file map_clause.ml

open! Base
open! Import

include Keyed_container_clause.Make (struct
    module Submodule_form = struct
      let name  = "Map"
      let arity = 1
      let value_types ~type_parameters = [ List.nth_exn type_parameters 0 ]
    end

    module Parameterized_form = struct
      let name                         = "Map"
      let arity                        = 3
      let key_type ~type_parameters    = Some (List.nth_exn type_parameters 0)
      let value_types ~type_parameters = [ List.nth_exn type_parameters 1 ]
    end
  end)