Source file `architecture.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open Base

type t =
  | Small
  | Balanced
  | Fast
[@@deriving sexp]

let of_string = function
  | "small" -> Small
  | "balanced" -> Balanced
  | "fast" -> Fast
  | arch -> raise_s [%message "Unknow architecture selected" (arch : string)]
;;

let default = Balanced