Source file edge.ml

1
2
3
4
5
6
7
8
9
type t =
  | Rising
  | Falling
[@@deriving bin_io, sexp_of, equal ~localize, compare ~localize]

let to_int = function
  | Rising -> 1
  | Falling -> 0
;;