diff options
Diffstat (limited to 'lib/concepts/Value.ml')
| -rw-r--r-- | lib/concepts/Value.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/concepts/Value.ml b/lib/concepts/Value.ml index 65a0439..75b0e88 100644 --- a/lib/concepts/Value.ml +++ b/lib/concepts/Value.ml @@ -1,3 +1,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 |