level.ml
hardcaml
ppx_deriving_hardcaml0
1 2 3 4 5 6 7 8 9 type t = | High | Low [@@deriving sexp_of, equal] let to_int = function | High -> 1 | Low -> 0 ;;
1 2 3 4 5 6 7 8 9
type t = | High | Low [@@deriving sexp_of, equal] let to_int = function | High -> 1 | Low -> 0 ;;