lib/data_types/types.ml


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

type t =
  | Number
  | String
  | Bool
  | None
  | Extern
  | Float

let string_of_t : t -> string = function
  | Number -> "Number"
  | String -> "String"
  | Bool -> "Bool"
  | None -> "None"
  | Extern -> "Extern"
  | Float -> "Float"