package ocaml-ai-sdk

  1. Overview
  2. Docs
package ocaml-ai-sdk
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file effort.ml

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

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

let equal a b =
  match a, b with
  | Low, Low | Medium, Medium | High, High | Xhigh, Xhigh | Max, Max -> true
  | (Low | Medium | High | Xhigh | Max), (Low | Medium | High | Xhigh | Max) -> false