Source file `hashtbl_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 = "Table"
    let arity = 1
    let value_types ~type_parameters = [ List.nth_exn type_parameters 0 ]
  end

  module Parameterized_form = struct
    let name = "Hashtbl"
    let arity = 2
    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)