diff options
Diffstat (limited to 'lib/value.ml')
| -rw-r--r-- | lib/value.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/value.ml b/lib/value.ml new file mode 100644 index 0000000..eb60b7d --- /dev/null +++ b/lib/value.ml @@ -0,0 +1,6 @@ +type t = 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 |