1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
open Base
module type Arg = Value_intf.Arg
module Make (S : sig
val port_name : string
val port_width : int
end) =
struct
module T = struct
type 'a t = 'a
let sexp_of_t sexp_of_a a = [%sexp_of: string * a] (S.port_name, a)
let port_names_and_widths = S.port_name, S.port_width
let map t ~f = f t
let iter t ~f = f t
let map2 s t ~f = f s t
let iter2 s t ~f = f s t
let to_list t = [ t ]
end
include T
include Interface.Make (T)
end