Source file `port.ml`

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