Source file `effort.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
type t =
  | Low
  | Medium
  | High
  | Xhigh
  | Max

let to_string = function
  | Low -> "low"
  | Medium -> "medium"
  | High -> "high"
  | Xhigh -> "xhigh"
  | Max -> "max"