level.ml
hardcaml
hardcaml.interface_types
hardcaml.kernel
hardcaml.ppx_hardcaml_runtime0
hardcaml.vcd
ppx_hardcaml0
1 2 3 4 5 6 7 8 9 type t = | High | Low [@@deriving bin_io, sexp_of, equal ~localize, compare ~localize] let to_int = function | High -> 1 | Low -> 0 ;;
1 2 3 4 5 6 7 8 9
type t = | High | Low [@@deriving bin_io, sexp_of, equal ~localize, compare ~localize] let to_int = function | High -> 1 | Low -> 0 ;;