1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open Base
module Type = struct
type t =
| Input
| Output
| Internal
[@@deriving compare, sexp_of]
end
type t =
{ type_ : Type.t
; port_name : Port_name.t
; width : int
}
[@@deriving compare, sexp_of]
let equal a b = Int.equal (compare a b) 0