Source file `build_mode.ml`

1
2
3
4
5
6
7
8
9
10
11
12
open Base

type t =
  | Simulation
  | Synthesis
[@@deriving sexp_of, compare, equal]

let of_string = function
  | "simulation" -> Simulation
  | "synthesis" -> Synthesis
  | build_mode -> raise_s [%message "Invalid [Build_mode]" (build_mode : string)]
;;