blob: 75b0e887091d57ba90ddf801e9f88a99ef9916f3 (
plain) (
blame)
1
2
3
4
5
6
|
type value = String of string | Integer of int
let to_string = function String s -> s | Integer n -> Int.to_string n
let equal x y =
match x, y with String x, String y -> x = y | Integer x, Integer y -> x = y | _, _ -> false
|
